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I.  INTRODUCTION 


A.  PREFACE 

Look  around  and  you  will  see  evidence  that  computers  have 
become  part  o-f  our  daily  lives.  Today,  computers  are  common 
place  in  industry,  government,  science,  politics,  and  even 
in  our  homes.  As  more  and  more  organizations  use  computers  -for 
their  needs,  it  is  necessary  to  use  modern,  systematic,  and 
cost  effective  approaches  -for  software  solutions  to  their 
problems.  In  recent  years  these  software  solutions  have  clear¬ 
ly  been  motivated  by  the  database  systems  approach ,  which  is 
widely  used  in  most  organizations. 

Database  technology  today,  plays  a  central  role  in  the 
computer  world  tor  the  -facilities  and  data  handling  capabi¬ 
lities  they  provide. 

During  the  last  decade  the  cost  of  labor  has  been  increa¬ 
sing  steadily  with  direct  consequence  being  the  parallel 
increase  of  the  software  costs.  Meanwhile  the  cost  of  computer 
hardware  has  decreased  dramat i cal  1 y .  As  David  Kroenke  puts  it, 
'The  computer  industry  has  developed  the  equivalent  of  a  *2.50 
Rolls  Royce  that  gets  2,000,000  miles  per  gallon  CRef.  1: 
p.  II. 

Thus,  simply  stated,  software  has  become  more  expensive  as 
computer  hardware  has  become  cheaper.  In  1960,  the  ratio  of 
hardware  over  software  expenditures  was  approximately  80 
per-cent  hardware  cost  to  20  percent  software  cost.  By  1990, 
the  ratio  was  reversed.  By  1990,  software  costs  will  account 
far-  more  than  90  percent  of  the  amount  spent  on  computing 
systems  CRef.  2:  p.  81. 

The  above  considerations  lead  us  to  select  systems  that 
achieve  the  best  utilization  of  the  software,  and  thus 


motivated  system  designers  to  build  advanced  database  systems 
in  order  to  decrease  software  cost  and  obtain  maximum  benefit. 


B.  COMPUTERS  IN  THE  HELLENIC  ARMY 

The  leadership  of  the  Hellenic  Army,  realizing  the  use¬ 
fulness  of  computers,  introduced  them  into  the  Army  in  the 
1970's.  Today,  most  of  the  tedious  and  error  prone  bureau¬ 
cratic  manual  procedures  are  automated,  and  the  computer  is 
used  efficiently  in  data  processing  and  decision  making.  Of 
course  there  are  a  lot  of  procedures,  especially  in  the  area 
of  personnel  management,  which  have  not  been  automated  yet. 
One  of  these  procedures  which  is  still  performed  manually  is 
the  annual  reassignment  processing  of  officers  in  each  Branch 
of  the  Hellenic  Army  General  Staff  (HAGS).  The  automation  of 
this  job  constitutes  the  topic  of  this  research. 


C.  DATABASE  SYSTEMS  VS  MANUAL  SYSTEMS 

The  top  management  in  every  organization,  and  in  our  case 
the  Branch  Directors  of  the  HAGS,  need  accurate  and  timely 
information  in  order  to  make  fast  and  better  informed 
deci si ons. 

Currently,  all  information  required  by  the  Director  for 
scheduling  and  processing  annual  assignments  of  his  officers 
is  handled  manually  by  the  staff  of  the  Directorate.  This 
results  in  tedious  and  time-consuming  operations,  which  are 
sometimes  inaccurate. 

Because  of  the  complicated  character  of  this  job,  and  the 
continuous  changes  pertaining  to  personnel  and  the  associated 
data,  it  is  extremely  difficult  for  the  staff  personnel  to 
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process  this  job.  Further,  the  Branch  Director  frequently  does 
not  have  the  necessary  information  to  make  rapid  decisions. 

The  above  problem  could  be  overcome  by  developing  and 
implementing  an  automated  personnel  database  system. 

The  development  and  implementation  of  a  personnel  database 
processing  system  would  provide  the  following  advantages  over 
the  existing  manual  system: 

1.  Improved  productivity,  i.e.  fewer  people  can  do  the  same 
job.  This  is  very  important  since  we  can  reduce  the 
staff  personnel  involved  in  the  manual  system,  and  use 
them  for  other  productive  tasks. 

2.  Speed,  which  is  very  important  for  a  decision-oriented 
processing  environment. 

3.  Reduced  tedium.  Large  volume  repetitious  jobs  can  be 
processed  easily. 

4.  Improved  quality  of  decisions.  Up-to-date  data/ 
information  can  be  made  available  to  decision  makers. 


D.  GENERAL  OVERVIEW  OF  A  DATABASE  PROCESSING  SYSTEM 

In  this  section  some  definitions  and  basic  database 
terminology  are  provided,  followed  by  a  summary  of  database 
architecture  and  types  of  data  models.  A  detailed  discussion 
of  the  data  models  is  beyond  the  scope  of  this  thesis,  but  a 
brief  overview  is  important  as  an  introduction  to  dBASE  III. 

1.  Def i n i t i on  and  Basi c  Termi nol oqy 

a.  Database 

A  shared  collection  of  interrelated  data  designed 
to  meet  the  varied  information  needs  of  an  organization. 


12 


WKaJUuLX  / Ji.  .‘^-1  A*  ftWSW-a  fLfc.VM A^V  am 


b.  Database  Management  System  (DBMS) 

A  software  system  that  carries  out  all  user 
requests  for  data.  User  requests  may  be  an  update,  a  delete  or 
a  retrieval  operation/f unction. 

c.  Database  System 

A  system  to  record  and  maintain  information  that 
is  significant  to  organization  in  the  decision  making  process. 
It  is  also  called  Information  System. 


d.  Data  Definition  Language  (DDL) 


A  specialized  language  used  for  the  description  of 
the  database  (records  and  data-i terns).  This  description  is 
stared  in  the  Data  Dictionary  maintained  by  the  DBMS. 


Data  Manipulation  Language  (DML) 


A  programming  language  used  tD  formulate  queries 
or  to  write  application  programs  for  data  manipulation.  It  is 
also  called  Host  Language  or  Query  Language. 


f.  File  (or  Entity  Set) 


An  organized  collection  of  records  representing 
entities  of  the  same  type. 


9- 


Record 


a  file. 


A  unit  of  data  representing  a  particular  entity  of 
It  consists  of  a  number  of  interrelated  data  elements. 
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h.  Field 


A  subdivision  of  a  record  containing  a  unit  of 
information.  It  is  the  smallest  unit  of  named  data. 


i .  Key 


An  attribute  (field)  or 
value  uniquely  identify  each  entity 


a  set  of  attributes 
in  a  file. 


whose 


j.  Relationships 


A  relationship  among  entity  sets  (files)  is  simply 
an  ordered  list  of  entity  sets.  Relationships  are  classified 
into  the  following  three  categories  according  to  how  man y 
entities  from  one  entity  set  can  be  associated  with  how  many 
entities  of  another  entity  set  CRef.  3:  p.  143: 

(1)  One-to-one  Relationship.  For  an  entity  A  in  either  set 
there  is  exaxtly  one  associated  entity  B  of  the  other 
set.  Eg.  Suppose  that  in  a  database  we  have  the  entity 
sets  DEPARTMENT  and  HEAD_OF_DEPARTMENT.  The  two  sets 
form  a  one-to-one  relationship  since  each  department 
has  only  one  head  and  each  head  can  belong  only  to  one 
department.  CRef.  3:  p.  153 

(2)  Qne-to-many  Relationship.  For  an  entity  A  in  either  set 
there  are  (possibly)  many  associated  entities  of  the 
other  set.  For  example  the  entity  sets  ORDER  and 
CUSTOMER  form  a  one-to-many  relationship  since  each 
order  is  related  with  a  specific  customer,  while  a 
customer  may  be  related  with  more  than  one  orders. 

(3)  Many-to-many  Rel ationshi p .  There  are  no  restrictions  on 
the  sets  of  pairs  of  entities  that  may  appear  in  a 
relationship  set.  For  example  the  entity  sets  PRODUCT 
and  RAW_MATERIAL  form  a  many-to-many  relationship  since 
a  product  may  be  built  from  more  than  one  raw  material 
and  a  raw  material  may  be  used  to  build  more  than  one 
type  of  product. 


14 


2.  Archi tecture  o-f  a  Database  System 

It  is  obvious  that  between  the  computer,  dealing  with 
bits,  and  the  end  user  sitting  in  front  of  a  terminal  managing 
information,  there  can  be  many  levels  of  abstraction.  The 
database  architecture  is  divided  into  three  different  levels 
of  abstraction:  internal ,  conceptual,  and  external.  In  Figure 
1  we  can  see  the  standard  view-points  regarding  the  three 
levels  of  a  single  database,  which  may  be  one  of  many  data¬ 
bases  using  the  same  DBMS  software.  CRef.  3:  p.  61 

The  internal  view  is  the  physical  database,  and  resi¬ 
des  permanently  on  secondary  storage  devices,  such  as  disks 
and  tapes.  It  should  be  emphasized  that  only  the  physical 
database  exists.  We  may  view  the  physical  database  itself  at 
several  levels  of  abstraction,  ranging  from  that  of  records 
and  files  in  a  programming  language  such  as  COBOL,  through  the 
level  of  logical  records,  as  supported  by  the  operating  system 
underlying  the  DBMS,  down  to  the  level  of  bits  and  physical 
addresses  on  storage  devices. 

The  conceptual  view  (or  schema)  is  an  abstraction  of 
the  complete  picture  of  an  organization.  A  DBMS  provides  the 
Data  Definition  Language  to  specify  the  conceptual  scheme. 

The  external  view  (or  subschema)  is  an  abstract  model 
of  a  portion  of  the  conceptual  view.  More  commonly  it  is  cal¬ 
led  user  view. 

3.  Database  Systems  vs  Tradi ti onal  File  Systems 

Database  technology  allows  an  organization's  data  to 
be  processed  as  an  integrated  whole.  It  reduces  the  need  of 
creating  and  maintaining  separate  files  for  separate  applica¬ 
tions  and  permits  users  to  access  data  more  natural  1 y. CRef .  1: 


Fig.  1.  Levels  of  Abstraction  in  a  Database  System. 


To  appreciate  this  concept,  consider  the  systems  shown 
in  Figure  2.  These  are  three  traditional  file  processing 
systems.  Each  file  is  considered  to  exist  independently,  and 
each  application  program  maintains  its  own  files.  Also  there 
is  no  sharing  of  data  among  different  application  programs. 

Figure  3  shows  a  database  processing  system.  The  files 
from  the  previous  approach  have  been  integrated  into  a  data¬ 
base  which  is  processed  indirectly  by  the  application  prog¬ 
rams.  The  new  system  can  perform  all  the  old  functions,  but 
the  programs  call  upon  the  DBMS  to  access  the  database.  The 
DBMS  acts  as  a  data  librarian.  It  stores  and  retrieves  data. 
Besides  the  data  it  stores  in  the  database,  the  DBMS  also 
stares  a  description  of  the  format  of  the  data.  This  is  neces¬ 
sary  in  order  for  the  DBMS  to  be  able  to  perform  its  function. 
CRef.  1:  p.  33 
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a.  Integrates  data  into  a  single  database.  This  feature  is 
extremely  important  because  it  enables  more  information 
to  be  produced  from  a  given  amount  of  data.  This  is 
because  DBMS  allows  processing  of  any  combination  of 
data  stored  in  the  database,  and  thus  we  can  obtain  more 
information.  In  the  file  processing  system  the 
combinations  of  data  that  can  be  performed  are  limited, 
since  data  is  physically  partitioned,  and  hence  the 
amount  of  inf ormation  obtained  is  limited.  CRef.  1:  p.  33 

b.  Minimizes  data  redundancy.  Separate  and  redundant  data 
files  are  integrated  into  a  single  logical  structure. 
This  means  that . a  data  item  is  recorded  once,  while  in 
the  file  processing  system  the  same  information  can  be 
repeated  in  different  files. 

c.  Provides  data  consistency.  Because  the  data  redudancy  is 
controlled,  tiiore  is  less  chance  of  inconsistencies. 
This  is  not  true  for  a  file  processing  system,  since  the 
data  redundancy  is  uncontrolled. 

d.  Allows  sharing  of  data.  Data  can  be  shared  by  many 
application  programs  via  DBMS.  In  the  file  processing 
approach,  since  every  application  has  its  own  private 
files,  there  is  little  opportunity  to  share  data  from 
other  application  programs'  files. 

e.  Allows  enforcement  of  standards.  Since  data  is  repeated 
only  once,  maintaining  a  standard  is  a  lot  easier. 

f.  Facilitates  the  development  of  new  applications.  There 
is  no  need  far  designing,  building,  and  maintaining  anew 
separate  files  for  new  applications,  while  in  the  file 
processing  approach ,  usually  a  new  application  must  be 
build  from  scratch. 

g.  Frovides  uniform  security,  privacy,  and  integrity 
controls.  Some  of  those  controls  are  provided  directly 
by  the  DBMS  (concurency  control ) ,  and  others  are 
specified  by  the  user  during  the  database  definition 
(integrity  rules)  and  the  program  development  (security 
constraints).  This  is  an  immediate  benefit  from  the 
sharing  and  integration  of  data. 

h.  Creation  of  program/data  independence.  DBMS  isolates  any 
changes  in  file  formats,  record  structure,  etc.  from 
application  programs.  Therfore  only  the  DBMS  and  those 
programs  that  use  the  changed  data  element  need  to  be 
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modified.  In  the  file  processing  systems,  programs 
interface  directly  with  files  and  hence  the  structure 
of  files  is  distributed  across  the  programs.  This 
distribution  creates  problems  when  a  file  is  changed. 
CR»f.  l!  p.  43 

i.  Facilitates  data  accessi bi 1 i ty  and  responsiveness.  DBMS 
provides  an  interactive  interface  to  database  by  query 
1 anguage. 

j.  Reduces  program  maintenance.  This  is  a  direct 
consequence  from  the  program/data  independence  feature. 
This  is  not  true  for  the  file  processing  approach  where 
any  change  in  a  datafile  will  necessitate  a  (possibly 
major)  change  in  programs. 

4.  Data  Model s 

A  model  is  a  representation  of  real  world  objects, 
events,  and  their  associations  in  a  mathematical  form. 

A  data  model  is  an  abstract  representat i on  of  the  data 
about  entities,  events,  activities,  and  their  associations. 
The  purpose  of  a  data  model  is  to  represent  data  in  an 
understandable  way.  The  three  most  important  data  models  in 
use  today  are  the  network,  hierarchical  and  relational.  These 
models  are  also  used  to  categorize  DBMS  products.  CRef.  3: 
p.  181 

a.  Network  Data  Model  (NDM) 

A  network  data  model  represents  data  as  a  set  of 
record  types  and  pairwise  rel at i onsh i ps  between  record  types 
(Figure  4).  Relationships  that  involve  more  than  two  record 
types  are  not  directly  permitted. 

The  basic  data  structure  used  in  a  network  data¬ 
base  is  the  graph.  The  links  in  the  graph  are  bi di rect i onal , 
allowing  us  to  travel  either  from  many  to  one  or  from  one  to 


or 


more 


many.  The  process  of  following  the  graph  links, 
generally,  relationships  is  called  navigation  CRef.  3:  p.  303. 
Navigation  allows  us  to  search  the  database  and  perform  the 
basic  operations  (retr i eve , i nsert ,  modify,  or  delete). 

The  DBMS  in  a  network  database  processing  system 
supports  the  use  of  multiple  one-to— many  or  many-ta-one 
rel at i onshi ps  between  the  same  pair  of  record  types,  but  can¬ 
not  support  directly  the  use  of  many-to-many  relationships. 
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Fig.  4.  Network  Data  Model 

b.  Hierarchical  Data  Model  (HDM) 

In  the  Hierarchical  Data  Model  organizations  are 
viewed  as  a  hierarchy  of  positions.  A  hierarchical  database 
consists  of  one  or  more  trees  and  each  tree  consists  of  a 
hierarchy  of  records  (Figure  5).  Hierarchical  data  models  are 
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considered  as  a  special  case  o-f  the  network  data  model  since 


the  tree  structure  is  a  special  case  o-f  the  graph. 

The  basic  operation  on  a  hierarchical  database  is 
a  tree  walk,  that  is,  given  a  node  o-f  the  database  instance, 
we  can  scan  all  o-f  the  descendants  of  a  given  logical  record 
type.  This  allows  us  to  insert  new  records,  retrieve,  modify, 
or  delete  existing  records. 

The  above  operation  is  unidirectional,  that  is, 
the  links  in  the  tree  proceed  from  parent  to  child  only 
CRef.  3s  p.  323.  For  this  reason  HDM  is  considered  inefficient 
in  supporting  many-to-one  relationships. 
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Fig.  5.  Hierarchical  Data  Model. 


c.  Relational  Data  Model  (RDM) 

A  relational  data  model  differs  from  NDM  and  HDM 
in  archi tecture.  The  data  are  represented  as  a  collection  of 
relations.  Intuitively,  a  relation  is  a  two  dimensional  table 
(Figure  6)  representing  a  file.  The  rows  of  the  relation  are 
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the  -file  records.  Rows  sometimes  are  called  tuples  o-f  the 
rela  tion.  Each  column  contains  values  about  the  same  attri¬ 
bute  (-field),  and  has  a  distinct  name,  i.e.,  the  name  o-f  the 
attribute.  The  sequence  of  the  rows  is  immaterial  CRef.  Is 
p.  1963. 

The  set  o-f  attribute  names  -for  a  relation  is  cal¬ 
led  the  relation  scheme.  For  the  example  in  Fig.  6,  the 
relation  scheme  -for  the  relation  PRODUCT  is  {PRODUCT#,  NAME, 
PRICE3-.  The  collection  o-f  relation  schemes  used  to  represent 
in-formation  is  called  a  (relational)  database  scheme,  and  the 
current  values  o-f  the  correspondi  ng  relations  is  called  the 
(relational)  database.  CRe-f.  3:  p.  213 

The  principal  advantage  o-f  an  RDM  is  data  -flexibi¬ 
lity.  Relationships  need  not  be  predefined.  We  can  join 
PRODUCT  tuples  with  ORDER  tuples  (Fig.  6),  without  having  to 


ORDER  relation  PRODUCT  relation 


PROD# 

NAME 

PR  I CE  . 

0 1 00 

CHAIR 

25.  ( 

>0 

01 10 

TABLE 

125. 

>0 

0120 

BOOKCASE 

120.  t 

>0 

0215 

DRESSER 

380 . ' 

>0 

1025 

SOFA 

289.  f 

>0 

1 1 00 

ARMCHAIR 

208 .  < 

1132 

BED 

105.< 

>0 

1140 

COUCH 

430.  ( 

>0 

0RD# 

DATE 

PROD# 

QUANT 

0870 

01/16/86 

0100 

25 

1001 

01/21/86 

0 1 20 

8 

1025 

01/25/86 

0215 

10 

1236 

02/12/86 

1025 

5 

1142 

02/15/86 

1132 

3 

Fig.  6.  Relational  Data  Model 


predefine  the  rel at l onsh i ps  in  the  design.  The  RDM  can  support 
the  use  of  all  types  of  rel at i onshi ps. 


The  second  advantage  is  that  the  way  of  arranging 
the  data  is  simple  and  more  understandable  to  humans  than  the 
way  of  arranging  data  in  the  NDM  and  HDM,  since  the  table 
structure  is  simpler  than  the  graph  and  tree  structures. 

Another  advantage  is  that  query  languages  provided 
•for  relational  database  processing  systems,  permit  data  to  be 
manipulated  as  groups  and  not  procedurally  as  one  record  at  a 
time. 

For  the  above  reasons,  relational  DBMS  have  become 
very  popular,  although  it  is  the  youngest  o-f  all  DBMSs  in 
the  computer  community. 

E.  dBASE  III  CONCEPTS 

Recently,  database  management  systems  built  for  micro¬ 
computers  have  become  very  popular.  They  provide  an 
inexpensive  and  easy  way  for  developing  database  systems  for 
applications  like  general  personnel,  accounting,  and  inventory 
control . 

dBASE  III  is  a  relational  database  management  system  for 
mi crocomputers.  It  contains  its  own  programming  language, 
permitting  a  user  to  develop  extremely  powerful  and  complex 
application  programs.  dBASE  III  is  used  as  the  DBMS  in  the 
design  and  development  of  an  automated  officer  assignment 
database  system. 

1.  Features  of  dBASE  III 

a.  Program/data  independence.  Changes  in  file  structure  do 
not  affect  application  programs. 

b.  Data  can  be  easily  updated. 


c.  Besides  the  known  data  types  (character,  numeric,  and 
logical),  it  provides  the  date  data  type  -for  managing 
dates,  and  memo  data  type  -for  managing  long  passages 
of  text. 

d.  Saves  in-formation  as  disk  -files  in  9  specialized  -formats 
each  serving  a  specific  dBASE  III  processing  need. 

CRef.  5:  p.  2-53 

e.  Sorting  and  indexing  capabilities. 

f.  Creation  and  printing  of  formatted  reports. 

g.  Date  arithmetic. 

h.  Built-in  high  level  1 anguage , whi ch  is  extremely  powerful 
and  supports  structured  programming. 

i.  Allows  interfacing  with  other  software  systems,  such  us 
SuperCalc,  Symphony,  WordStar  and  Basic.  CRef.  43 


2.  Limitations  of  dBASE  III 


a.  Each  database  file  can  have  up  to  1  billion  records 
maximum.  The  maximum  size  of  each  file  is  2  billion 
bytes. 

b.  Allows  a  maximum  of  128  fields  in  each  record  with  their 
combined  widths  up  to  a  maximum  of  4,000  characters. 

c.  Allows  you  to  have  up  to  10  database  files  open  at  the 
same  time,  or  15  files  of  all  types.  You  can  have  7  open 
index  files  and  1  format  file  per  active  database  file. 

d.  Filenames  can  be  up  to  8  characters  long  and  fieldnames 
can  be  up  to  10  characters  long. 

e.  The  maximum  number  of  active  memory  variables  is  256. 
The  total  number  of  bytes  for  memory  variables  is  6,000. 

f.  Execution  of  dBASE  III  programs  is  slower  than  compiled 
programs. 

All  the  above  values  may  be  limited  by  the 
computer  hardware  configuration.  CRef.  5:  p.  2-23 


II.  ANALYSIS 


Analysis  is  the  study  of  a  problem  prior  to  taking  some 
action.  In  our  case,  analysis  re-fers  to  the  study  o-f  the 
existing  problem  in  order  to  derive  the  required  information 
which  will  enable  us  to  decide  whether  a  database  system 
approach  can  provide. an  efficient  and  economical  solution  to 
our  problem  or  if  it  will  become  part  of  the  problem. 

A.  PROBLEM  DEFINITION 

As  we  stated  earlier,  the  operations  required  for  sche¬ 
duling  the  annual  assignments  of  the  officers  in  each  Branch 
of  the  Hellenic  Army  General  Staff  (HAGS)  are  performed 
manually  by  the  staff  of  each  Branch.  This  results  in  tedious 
time-consuming  operations  and  inefficiency.  In  addition,  the 
Branch  Director  may  not  be  able  to  make  fast  decisions 
concerning  personnel  management  due  to  the  lack  of  timely  and 
accurate  information.  Further ,  the  volume  of  transactions  in 
every  big  organization  and  especially  in  the  army,  pertaining 
to  personnel  management,  is  getting  larger  and  larger,  which 
means  that  additional  personnel  is  required  to  perform  the 
above  job,  leaving  other  critical  positions  unmanned. 

For  a  solution  to  the  above  definition  of  the  problem  we 
ask  the  question  'can  a  database  system  provide  a  more  ef¬ 
ficient  and  economical  solution1^'.  In  order  to  answer  this 
question  we  must  be  aware  of  how  a  Branch  is  organized,  what 
is  being  done,  how  frequently  does  this  job  occur ,  and  how 
great  is  the  volume  of  transactions. 
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Organization  Overview 


a.  Branch  Organization 

The  Hellenic  Army  General  Staff  is  organized  into 
three  major  parts:  Arms,  Services,  and  Staff.  The  relation 
of  these  parts  to  the  HAGS  organization  is  summarized  in 

Figure  7. 


Fig.  7.  Organization  Chart  of  the  HAGS. 


Each  Arm  or  Service  (we  will  call  them  simply 
Branches) ,  is  responsible  for  the  operational  readiness  and 
managerial  aspects  of  the  units  which  are  part  of  the  Branch. 

Each  Branch  is  organized  into  subordinate  Com¬ 
mands,  Staffs,  and  Units.  The  number  of  units  varies  from 
Branch  to  Branch,  depending  on  the  mission  and  special 
character i st i cs  of  each  Branch  of  the  Army. 

In  order  to  provide  a  concrete  example  of  a  branch 
organization  we  will  use  the  Artillery  Branch  as  the  model  for 
this  research.  Figure  8  summarizes  the  relation  of  the  com¬ 
mands,  staffs,  and  units  to  the  Artillery  Branch  organization. 


ARTILLERY 

BRANCH 


Fig.  8.  Organization  Chart  of  the  Artillery  Branch. 


In  Table  I  we  provide  a  detailed  list  of  the 
Artillery  echelons.  There  are  four  categories  of  units: 
Staffs,  Schools,  Training  Centers,  and  Combat  Units.  A1 so 
units  are  character i zed  as  A-type,  B-type,  or  C-type  according 
to  their  operational  readiness.  The  operational  readiness 
determines  the  level  of  manning  for  each  unit.  The  names, 
number  of  units,  and  the  manning  level  provided  below  are 
figurative  for  security  reasons. 


Table  I.  Artillery  Echelons 


UNIT 

CATEGORY 

UNIT 

TYPE 

ABD/HAGS ! Arti 1 1 ery  Branch  Directorate 

Staff 

A 

AS  ! Arti 11 ery  School 

School 

A 

ARTC  !Artil.  Recruit  Training  Center 

Train.  Center 

A 

GMB  ! Guidance  Missile  Battalion 

Combat  Unit 

A 

AC/1  AC  ! 1st  Army  Crop  Artil.  Command 

Staff 

A 

11  FA/AB! Field  Anti-Air  Artil.  Battal . 

Combat  Unit 

A 

12  HAB  ! Heavy  Artillery  Battalion 

Combat  Unit 

A 

13  OB  ! Observation  Battery 

Combat  Unit 

A 

AC/11  ID! 11th  Inf.  Div.  Artil.  Command 

Staff 

A 

111  FAB  [Field  Artillery  Battalion 

Combat  Unit 

A 

112  FAB  IField  Artillery  Battalion 

Combat  Unit 

A 

113  MHAB ! Med i um— Heavy  Artil.  Battalion 

Combat  Unit 

A 

AC/12  ID! 12th  Inf.  Div.  Artil.  Command 

Sstaff 

B 

121  FAB  IField  Artillery  Battalion 

Combat  Unit 

B 

122  FAB  ! Fi el d  Artillery  Battalion 

Combat  Unit 

B 

123  MHAB ! Medium-Heavy  Artil.  Battalion 

Combat  Unit 

B 

AC/2  AC  !2nd  Army  Crop  Artil.  Command 

Staff 

B 

21  FA/AB IField  Anti-Air  Battalion 

Combat  Unit 

C 

22  HAB  ! Heavy  Artillery  Battalion 

Combat  Unit 

C 

23  OB  'Observation  Battery 

Combat  Unit 

C 

AC/21  ID ! 21st  Inf,  Div.  Arti 1 .- Command 

Staff 

B 

211  FAB  ! Field  Artillery  Battalion 

Combat  Unit 

B 

212  FAB  IField  Artillery  Battalion 

Combat  Unit 

B 

213  MHAB ! Med i um-Heavy  Artil.  Battalion 

Combat  Unit 

B 

AC/22  ID! 22nd  Inf.  Div.  Artil.  Command 

Staff 

C 

221  FAB  iField  Artillery  Battalion 

Combat  Unit 

C 

222  FAB  IField  Artillery  Battalion 

Combat  Unit 

C 

223  MHAB I  Med i um-Heavy  Artil.  Battalion 

Combat  Unit 

C 

b.  Officers'  Organization 

Officers  come  from  two  sources,  those  who  havi 
iraduated  from  the  Military  Academy  (MA) ,  and  those  who  use< 
:o  be  warrant  officers  and  have  been  promoted  to  officers 
‘hey  have  graduated  from  the  Non-Commissioned  Officers  Schoo 


(NCOS).  Further,  officers  are  distinguished  according  to  their 
specialty  as  commanding  officers  (all  officers  coming  -from  the 
Military  Academy  plus  a  small  number  coming  -from  NCOS), 
technicians,  and  administrative  officers  (officers  coming  only 
from  NCOS) . 

Officers  are  assigned  to  various  units  according 
to  an  organization  table  maintained  by  each  Branch.  Table  II 
illustrates  the  organization  table  of  the  Artillery  units. 

2.  Description  of  the  Present  Situation 

One  of  the  major  responsibilities  of  a  Branch  is  to 
schedule  and  monitor  the  assignments  of  the  officers  who 
belong  to  this  Branch.  Each  officer  during  his  career  has  to 
be  assigned  to  various  units  and  staff  positions  in  order  to 
be  equiped  with  the  necessary  skills  which  will  qualify  him 
for  further  professional  evolution.  For  this  reason,  in  each 
Branch  of  the  HAGS  there  exist  a  mechanism  through  which  the 
Director  keeps  track  of  the  assignments  of  his  officers. 

All  officers  through  the  rank  of  captain  are  exclu¬ 
sively  assigned  to  units  which  are  part  of  the  corresponding 
Branch.  However,  a  small  number  of  officers,  from  the  rank  of 
major  and  on,  are  unbound  by  the  Branch  and  disposed  to  the 
HAGS  to  man  other  staff  units  outside  the  Branch.  The  number 
of  officers  serving  outside  the  Branch  is  always  fixed. 

Each  Branch  schedules  and  monitors  the  assignments  of 
its  officers  up  to  the  rank  of  the  Colonel.  The  assignments 
of  the  Generals  are  scheduled  by  the  HAGS  and  they  will  not  be 
discussed  here. 


Table  II.  Organization  Table  o-f  the  Artillery  Units 


:  t  j 

OFFICERS' 

DISTRIBUTION 

unit  :y:o6:o5: 

04 

03 

02  :  oi 

SUM 

:  p  :  ma  :  ma  :  ma 

NCOS : MA ! 

NCOS : MA 

NCOS  ! MA I  NCOS 

name  : E : c  : c  : c 

c;ti Aic  : 

C  !  T  !  AIC 

c  : t : a : c  ;c  :t  :a 

ABD/HAGS!A!3  ! 4  !2 

•  f  1  1 

lit  1 

1  1  I 

1  t  1 

lit*  i  i  * 

I'll  t  «  t 

10 

1 

I 

« 

i :  :  :6 

i  «  1  1  {  j  ^ 

3<5 

:  artc  : A ; l 


GMB 


AC/1  AC  J  A : 1 


li  fa/ab:a; 


hab  : a : 


•Mf  J  M 


a.  Criteria  affecting  the  Assignments 

The  mechanism  o-f  scheduling  the  assignments  in  each 
Branch  o-f  the  HAGS  is  based  on  certain  criteria.  The  criteria 
vary  -from  Branch  to  Branch  depending  on  the  organization  and 
special  characteristics  of  each  Branch.  Among  those  criteria 
we  will  pick  up  the  common  ones  in  order  to  keep  this 
research  more  abstract,  so  that  it  can  be  easily  applied  to 
every  Branch  with  minor  modifications. 

<1)  Origin.  Officers  coming  from  NCOS  can  never  be  assigned 
to  staff  positions,  as  well  as  in  units  outside  the 
Br anch . 

(2)  Specialty.  Table  II,  determines  the  number  ofofficers 
assigned  to  each  unit  according  to  their  specialty. 

(3)  Schools.  The  only  school  that  can  directly  affect  the 
assignments  is  the  War  College.  An  officer  can  never 
be  assigned  to  a  staff  unit  if  he  has  not  graduated 
from  the  War  College.  Other  schools  that  do  not  affect 

.  the  assignments  are  not  discussed  here,  although  they 
may  be  very  important  for  other  aspects  in  the  decision 
making  process. 

<4)  Rank.  From  the  Organization  Table  (Table  II)  we  can 
determine  the  number  of  officers  per  rank  assigned  to 
various  units.  However,  there  are  some  simple  rules 

governing  the  assignments  which  cannot  be  seen  in  the 

table  and  they  are  stated  below. 

(a)  All  2nd  lieutenants,  right  after  their  graduation 

from  the  Military  Academy,  are  assigned  to  the 

corresponding  Br anch-school  (Artillery  School  for 
our  model)  for  training  (specialization).  After 
one  year  of  training,  all  are  assigned  to  the 

Artillery  Recruit  Training  Center  (ARTC)  in  order 
to  obtain  the  necessary  training  experience.  They 
remain  one  year  in  the  ARTC  and  then  are  assigned 
to  various  combat  units. 

(b)  All  officers  graduating  from  the  War  College  (only 
majors)  are  assigned  to  staff  positions  (inside  or 
outside  the  Branch)  for  at  least  two  years. 


(5)  Command  Ti mm.  Command  time  is  a  requirement  for  all 

officers  up  to  the  rank  of  lieutenant  colonel  for 

promotion  to  the  next  rank.  The  minimum  command  time 

required  for  a  lieutenant  colonel  is  one  year  of 

service  as  a  Battalion  commander.  Therefore,  each 
Branch  during  the  scheduling  of  the  assignments  must 
take  the  command  time  into  consideration,  and  assign 
the  lieutenant  colonels  who  have  not  completed  this 
requirement  as  Battalion  commanders.  Each  commander  is 
responsible  to  assign  appropriate  duties  to  all  his 
subordinate  officers,  so  that  they  can  complete  the 
required  command  time  for  their  rank. 

(6)  Time  o-f  Service  in  the  Same  Unit.  For  each  rank  there 
is  a  minimum  and  a  maximum  time  an  officer  can  serve  in 
the  same  unit  as  described  below. 

(a)  Lieutenants  3-4  years. 

(b)  Captain  3-4  years. 

(c)  Major  1-3  years. 

(d)  Lieutenant  colonel  1-3  years 

(e)  Colonel  1-2  years 

(7)  O-f-f jeers'  Requests.  After  an  officer  has  been  assigned 
to  a  unit  for  a  year  he  makes  a  request  for  his  next 
assignment.  This  request  is  submitted  only  once  during 
each  assignment  period,  except  in  the  case  when  serious 
reasons  dictate  the  change  of  the  request  and  a  need 
for  resubmission.  In  the  request  each  officer  states 
his  preferences  in  three  areas  that  he  would  like  to 
serve  in  during  his  next  assignment.  The  officers' 
requests  are  examined  by  the  Branch  during  the 
scheduling  of  the  assignments,  and  in  combination  with 
the  other  criteria.  If  there  is  no  conflict,  all 
conditions  can  be  satisfied. 

(8)  Marital  Status.  This  criterion  is  examined  whenever  two 
or  more  officers  having  the  same  qual i f i cati ons  request 
the  same  unit  for  their  next  assignment.  In  this  case 
married  officers  or  officers  having  bigger  families  are 
given  preference. 

(9)  Hi stori cal  Data.  Each  Branch  maintains  a  record  for 
each  officer,  containing  all  personal  and  service  data. 


All  assignments  of  an  officer  are  maintained  in  his 
record,  along  with  the  previously  mentioned  data.  This 
data  must  always  be  kept  up-to-date,  because  they 
reflect  the  real  picture  o-f  an  o-f-ficer  and  provide 
scheduling  personnel  with  the  required  information  to 
accomplish  their  task. 

b.  Officer  Processing  Considerations 

Officers'  assignments  are  closely  related  with  the 
promotions.  The  assignments  follow  the  promotions,  which 
usually  occur  four  times  a  year:  for  the  colonels  (March) ,  for 
the  lieutenant  colonels  (April),  for  the  majors  (May),  and  for 
the  lieutenants/captains  (June).  After  the  announcement  of  the 
promotions  by  the  HAGS,  each  Branch  schedules  the  assignments 
for  the  correspondi ng  rank  and  implements  them  by  issuing  the 
necessary  orders. 

The  personnel  involved  in  this  job  combines  all 
the  above  criteria  and  determines  who  of  the  officers  meet  the 
requirements  for  a  new  assignment  and  in  which  unit  he  must  be 
assigned.  Usually  one  fourth  of  the  officers  of  each  Branch 
are  moved  every  year  during  the  assignments.  Besides  this 


duty,  the  above  personnel  are  responsible  to  provide  the 
Branch  Director  and  other  staff  offices  of  the  HAGS  all 
requested  information  concerning  the  officers  of  the  Branch. 

The  number  of  personnel  involved  in  this  job 
varies  from  Branch  to  Branch,  depending  on  the  volume  of  the 
officers  enrolled  in  each  Branch.  In  our  model  usually  three 
people  are  directly  involved,  one  lieutenant  colonel,  one 
lieutenant,  and  one  civilian. 
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B.  JUSTIFICATION  OF  A  COMPUTERIZED  SOLUTION 


From  the  above  discussion,  it  is  obvious  that  the  manual 
processing  of  the  officers'  assignments  is  a  very  tedious,  in¬ 
efficient  and  time-consuming  operation.  Three  people  are 
working  continuously  creating,  classifying  and  updating 
officers'  records,  scheduling  the  assignments,  and  providing 
the  Branch  Director  and  HAGS  all  requested  information  (lists 
and  various  reports)  concerning  personnel  management.  Further, 
inaccuracies  and  delays  may  be  introduced  in  the  decision 
making  process  due  to  the  great  volume  of  required  data  and 
the  complex  character  of  the  job. 

All  of  the  above  mentioned  problems  could  be  overcome  by 
developing  and  implementing  an  automated  system. 

There  are  two  possible  computerised  approaches  which  can 
provide  a  solution  to  our  problem:  the  traditional  file 
processing  approach,  and  a  database  system  approach.  Between 
the  two  approaches  the  later  is  more  efficient  than  the  first 
one  for  the  reasons  explained  previously.  Further,  the 
implementation  of  a  database  system  on  a  mi crocomputer  is  an 
economical  solution,  since  the  expenses  for  buying  the  entire 
system  (hardware  and  DBMS)  are  very  low  (about  *4,000)  and 
they  can  be  offset  by  a  reduction  of  processing  personnel 
(from  three  to  one).  It  is  apparent  that  this  system  would 
also  provide  a  better  quality  of  services. 

From  the  above  discussion  it  is  evident  that  a  database 
system  should  be  developed  and  implemented  on  a  microcomputer 
for  an  efficient  and  economical  solution  to  the  officers' 
assignments  scheduling  problem,  as  well  as,  for  other  problems 
related  with  personnel  management  in  each  Branch  of  the  HAGS. 
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C.  SYSTEM  GOALS  AND  REQUIREMENTS 


In  order  to  establish  a  -framework  for  the  database  system 
devel opment , i t  is  necessary  to  specify  what  we  expect  from  the 
new  system,  and  what  capabilities  this  system  must  provide. 

1 .  Goals 


Goals  are  targets  for  achievement.  The  following 
targets  must  be  achieved  by  the  system  under  development: 

a.  It  should  re  uce  the  personnel  involved  in  the  process 
of  officers'  assignments  scheduling  by  65  percent. 

b.  It  should  be  easy  to  use  by  nonprogrammers . 

c.  It  should  be  useful. 

d.  It  should  be  cost  effective. 

e.  It  should  make  users'  jobs  more  interesting. 

2.  Requirements 

Requirements  specify  capabilities  that  a  system 
must  provide  in  order  to  solve  the  problem.  Requirements 
include  functional  r equi rements ,  performance  requirements,  and 
requirements  for  hardware,  software,  and  user  interfaces 
CRef.  2:  p.  331.  The  capabilities  the  new  system  must  provide 
are  the  following: 

a.  Reliability,  i.e.  it  must  be  able  to  preform  its 
intended  functions  under  stated  conditions  for  a  stated 
period  of  time. 

b.  Application  development  must  be  easy,  cost-effective, 
and  fast. 

c.  The  data  can  have  multiple  uses. 
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Performance.  It  must  be  -fully  operational  9_»  percent  of 
each  24-hour  period. 

Response  time  to  user  requests  (queries)  no  more  than  5 
seconds. 

The  size  o-f  primary  memory  able  to  support  the  system 
must  be  at  least  320K  bytes  (180K  bytes  -for  bBASE  III 
system  program  plus  50K  bytes  -for  operating  system 
requirements  plus  90K  -for  user  requirements)  .  CRef. 
S:  p.  361 

The  computer  system  must  be  equiped  with  a  20M  byte 
hard-disk  -for  the  user  files  and  programs,  and  at  least 
one  floppy  disk  drive  for  the  system  program  and  for 
back-up  purposes. 


software  changes  must  be  easy  and 


Maintainability,  i.£ 
cost-ef f ect i ve. 

Security  and  privacy. 


D.  INPUT /OUTPUT  INFORMATION 


As  stated  earlier,  the  system  under  development  can  be 
applied  to  all  Branches  of  the  HAGS  with  minor  modifications, 
but  for  the  purpose  of  this  research  we  will  include  only  the 
Artillery  Branch. 

Although  in  this  phase  we  are  not  able  to  specify  what  the 
exact  input  and  output  information  will  be,  we  have  gained 
some  insights  and  understanding  from  the  discussion  thus  far. 
These  thoughts  should  be  taken  as  hints  and  guidelines 
concerning  system  input  and  output  information  for  the  product 
design,  but  not  as  rigid  requirements. 

Detailed  description  of  the  required  input  and  output 
information  will  be  provided  in  the  design  phase. 


v.v..-  .  v  . ,  v 
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Input  In-formation 


Since  the  system  is  intended  to  deal  with  officers, 
the  required  input  in-formation  should  be  officers'  data. 
Therefore,  we  must  consider  the  following: 

a.  Each  officer  has  a  unique  serial  number,  rank,  origin, 
specialty,  nomination  date,  promotion  date  in  the 
current  rank,  and  a  home  city. 

b.  Each  officer  serves  in  some  unit  since  a  certain  date 
(enrollment  date),  and  has  been  assigned  a  duty.  The 
unit  is  identified  by  a  unique  name,  has  a  readiness 
type,  and  is  located  in  some  geographical  area  of  the 
country  (city  and  county). 

c.  Each  officer  has  a  marital  status  (single,  married, 
divorced,  windower,  number  and  age  of  children,  working 
wife) . 

d.  Each  officer  has  some  education  (mi  1 i tary/non-mi 1 i tar y 
studies ) . 

e.  Each  officer  submits  a  request  to  the  Branch  indicating 
three  areas  he  wants  to  be  assigned  in  his  next 
assignment  in  preference  order. 

f.  Each  officer  has  some  historical  data  (previous  assign¬ 
ments,  duties,  promotion  dates  etc.). 


2.  Output  Information 


To  meet  the  above  goals  and  requirements  the  following 
output  information  is  required: 

<a.  List  of  the  scheduled  officers'  assignments  by  rank 
including  serial  number,  name,  rank,  source  unit,  desti¬ 
nation  unit,  and  date  the  assignment  must  take  place. 

b.  List  of  any  unit  including  the  officers  assigned  to  it, 
their  duties,  and  enrollment  date. 

c.  List  of  all  Artillery  officers  in  any  requested  order. 


_» .  ..v.v.v'av,  -w.v.v 


III.  DESIGN 


The  design  is  a  solution-the  translation  of  requirements 
into  ways  of  meeting  them  CRef.  6t  p.  224].  In  our  case,  data¬ 
base  design  is  the  process  of  developing  database  structures 
from  those  formulated  in  the  analysis  phase  of  Branch 
requirements.  The  resulting  design  must  satisfy  the  needs  of 
the  Branch  in  terms  of  completeness,  integrity,  and 
performance  constraints.  The  design  of  the  system  under 
development  includes  two  steps:  the  logical  (or  conceptual ) 
design,  and  the  physical  design. 


A.  LOGICAL  (CONCEPTUAL)  DESIGN 

Logical  design  is  the  process  of  describing  the  system 
features,  i.e.,  the  functions,  inputs,  files,  the  way  the 
files  are  related  to  each  other  in  order  to  form  the  conceptu¬ 
al  database  structure,  and  outputs  in  a  manner  that  meets  the 
specified  requirements.  CRef.  6:  p.  225] 

1 .  System  Functions 

The  system  under  development  will  perform  the  fol¬ 
lowing  functions: 

a.  Update  Operations.  this  function  allows  the  user  to 
insert,  modify,  and  delete  records  in  all  the  supporting 
files  except  a  few  files  which  will  automat i cal  1 y  be 
updated,  as  they  will  be  described  later.  It  is  very 
important  for  the  Branch  to  keep  all  the  files 
up-to-date  since  the  accuracy  of  the  system  will  mainly 
depend  on  the  accuracy  of  the  files.  Update  operations 
take  place  whenever  a  transaction  comes  to  the  Branch. 


b.  Assignment  Processing  Operations.  This  -Function  will 
per-form  the  scheduling  o-f  the  o-f-Ficers'  assignments  and 
will  take  place  right  after  the  annual  promotions  -For 
each  rank.  Since  the  criteria  applied  in  the  assignment 
scheduling  are  different  for  each  rank,  as  we  described 
earlier,  this  function  will  monitor  a  number  of  sub¬ 
sequent  functions  correspondi ng  one  per  rank. 

c.  Report  Generator.  This  function  is  for  retrieving  all 
necessary  information  from  our  database  upon  request. 
The  requested  information  will  be  displayed  on  the 
screen  and  optionally  sent  to  the  printer. 

d.  Miscellaneous.  This  function  will  include  the  following: 

(1)  User  Author i 2  at i on  Val idation.  Whenever  a  user 
attempts  to  access  the  database  via  the  existing 
programs,  the  system  will  ask  him  to  enter  his 
password.  This  password  will  be  checked  against  the 
existing  list  of  valid  passwords.  If  it  is  valid, 
the  system  will  allow  him  to  use  the  database. 
Otherwise  an  automatic  exit  to  the  underlying 
operating  system  will  take  place.  In  this  way  we 
can  prevent  unauthorized  updates  and  disclosure  of 
the  database  contents. 

(2)  User  Log.  Every  time  a  valid  user  enters  the  system 
to  do  a  specific  task,  a  record  is  automatically 
created  containing  the  user's  name,  the  date  and 
time  of  database  access  and  the  kind  of  task 
performed.  In  this  way  we  can  provide  an  audit 
trail  of  who  did  what  on  the  database  and  when  it 
took  place.  In  case  of  erroneous  updates  it  will  be 
easy  to  find  out  what  exactly  happened. 

(3)  Historical  Data  Log.  For  each  transaction  concern¬ 
ing  officer  nomination,  promotion,  assignment, 
retirement  or  death  a  record  is  automat i cal  1 y 
created  containing  the  officer's  serial  number, 
rank,  type  of  transaction,  unit  and  date  the 
transaction  took  place.  This  file  is  very  useful 
for  for  historical  purposes. 

All  the  above  functions  will  be  menu  driven.  The 
functional  blocks  of  the  system  are  illustrated  in  Figure  9. 
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identified  by  a  number.  To  invoke  a  particular  option,  the 
user  depresses  the  key  correspondi ng  to  the  desired  option. 


*  MAIN  MENU  * 

DATABASE  UPDATE: . 

1 

ASSIGNMENT  PROCESSING: _ 

2 

REPORT  GENERATOR: . 

3 

END  OF  SESSION: . 

4 

EXIT  TO  DOS: . 

5 

Enter  your  selection  -> 

Fig.  10.  Main  Menu, 


b.  Sub-menus  Description 

(1)  Update  Menu.  This  menu  is  entered  when  a  user 
selects  option  1  -from  the  main  menu.  As  we  can  see  in 
Figure  11,  it  provides  seven  new  options.  Through  this  menu  we 
can  insert,  modify,  delete  records  in  the  specified  database 


UPDATE  MENU 


INSERT  RECORDS  INTO  OFFICER  FILE: .  1 

INSERT  RECORDS  INTO  SCHOOLS  FILE: .  2 

INSERT  RECORDS  INTO  HISTORIC  FILE: .  3 

MODIFY  RECORDS  FROM  OFFICER  FILE: .  4 

MODIFY  RECORDS  FROM  REQUEST  FILE: .  5 

DELETE  RECORDS  FROM  OFFICER  FILE: .  6 

EXIT  TO  MAIN  MENU: .  7 

Enter  your  selection  -> 


Fig.  11.  Update  Menu 


or  exit  to  main  menu.  The  selection  of  the  desired 


files, 

records  is  done  by  typing  the  record  key  of  the  corresponding 
database  file.  After  selecting  a  specific  record,  its 
structure  is  displayed  on  the  screen  and  the  cursor  is 
positioned  in  the  first  element  to  be  updated.  Invalid  data 
types  (numeric,  character,  logical,  or  date)  are  not  accepted 
by  the  system.  Thus,  the  user  is  protected  from  typing  invalid 
data  types. 

(2)  Assignment  Processing  Menu.  This  menu  is  dis¬ 
played  in  case  a  user  selects  option  2  from  the  main  menu 
(Figure  10).  This  menu  provides  seven  options  as  it  is  shown 
in  Figure  12.  Each  function  is  performed  by  selecting  the  cor¬ 
responding  number.  The  actual  input  data  required  for  proces¬ 
sing  the  assignments  are  database  files,  but  those  files  are 
selected  by  the  correspondi ng  application  programs,  so  the 
user  does  not  have  to  worry. 


*  ASSIGNMENT  PROCESSING  MENU  * 


1st  LIEUTENANT  ASSIGNMENT  PROCESSING:...  1 
2nd  LIEUTENANT  ASSIGNMENT  PROCESSING:...  2 

CAPTAIN  ASSIGNMENT  PROCESSING: .  3 

MAJOR  ASSIGNMENT  PROCESSING: .  4 

L'EUT.  COLONEL  ASSIGNMENT  PROCESSING: _  5 

COLONEL  ASSIGNMENT  PROCESSING: .  6 

EXIT  TO  MAIN  MENU: .  7 

Enter  your  selection  -> 


Fig.  12.  Assignment  Processing  Menu. 


(3)  Report  Generator  Menu.  This  menu  is  displayed 
when  the  user  selects  option  3  from  the  main  menu  (Figure  10). 
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From  this  menu  a  user  can  select  the  desired  output  (list  or 
report).  Figure  13  shows  the  details  of  this  menu. 


E 


*  REPORT .GENERATOR  MENU  * 


LIST  OF  SCHEDULED  ASSIGNMENTS: .  1 

LIST  OF  OFFICERS  OF  ANY  DESIRED  UNIT .  2 

LIST  OF  OFFICERS  IN  ANY  DESIRED  ORDER: .  3 

LIST  OF  OFFICERS  OF  ANY  DESIRED  RANK .  4 

LIST  OF  BATTALION  COMMANDERS: .  5 

LIST  OF  OFFICERS  SERVING  OUTSIDE  THE  BRANCH:  6 

OFFICER'S  SERVICE  TIME  REPORT: .  7 

OFFICER'S  STATUS  REPORT: .  8 

EXIT  TO  MAIN  MENU: .  9 

Enter  your  selection  -> 


Fig.  13.  Report  Generator  Menu. 


3.  File  Design 

To  support  the  above  specified  functions  the  following 
files  with  the  correspondi ng  structures  will  be  created.  The 
names  of  the  files  and  fields  are  the  ones  that  will  be  used 
in  our  system. 

a.  OFFICER  File. 

It  is  the  main  file  containing  all  required  infor¬ 
mation  for  each  officer.  Figure  14  shows  the  structure  of  the 
OFFICER  file,  as  well  as  the  explanation  of  the  fields. 
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FIELD 

NAME 

TYPE 

WIDTH 

FIELD-EX  PL AN AT ION 

01 

NAME 

C 

018 

Officer's  name 

02 

SERNO 

C 

005 

Officer's  serial  number 

03 

RANK 

c 

002 

Officer's  rank 

04 

N0MYEAR 

c 

002 

Year  of  nomination 

05 

SPECIALTY 

c 

001 

Officer's  specialty 

06 

SOURCE 

c 

004 

Officer's  source  (MA,NC0S) 

07 

NOMDATE 

Date 

008 

Nomination  Date 

08 

PROMDATE 

Date 

008 

Promotion  Date 

09 

ASWEI6HT 

C 

002 

Weight  for  next  assignment 

10 

ORISCITY 

C 

006 

City  of  officer's  origin 

1 1 

ORISCOUNTY 

G 

008 

County  of  officer's  origin 

12 

MARSTAT 

C 

001 

Officer's  marital  status 

13 

CHILDREN 

N 

001 

Number  of  children 

14 

WORKWIFE 

L 

001 

Working  wife 

Primary  Key  :  SERNO 

Fig.  14.  Structure  for  -file  OFFICER. 


b.  SERVES  File 

This  file  contains  information  reflecting  the  cur¬ 
rent  service  status  of  each  officer  (unit  he  is  assigned  to, 
enrollment  date,  duty).  Its  structure  and  the  explanation  of 
fields  is  shown  in  Figure  15. 


FIELD 

NAME 

TYPE 

WIDTH 

FIELD-EX  PL AN AT I ON 

01 

SERNO 

C 

005 

Officer's  serial  number 

02 

UNITNAME 

C 

008 

Unit  name 

03 

ENROLDATE 

DATE 

008 

Enrollment  date 

04 

DUTY 

C 

010 

Officer's  duty 

Primary  Key  :  -CSERNO,  UNITNAME> 

Fig.  15.  Structure  for  File  SERVES. 
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REQUESTS  File 


This  -file  contains  officers'  requests  -for  their 
next  assignment.  Figure  16  provides  the  details  o-f  this  -file. 


FIELD 

NAME 

TYPE 

WIDTH 

F I ELD-EXPLANAT I ON 

01 

SERNO 

C 

005 

Officer's  serial  number 

02 

STAFF0FFIC 

L 

001 

Staff  Officer  (T  or  F  ) 

03 

SUBMDATE 

DATE 

008 

Request's  submission  date 

04 

UNIT1 

C 

008 

First  requested  unit 

05 

UNIT2 

C 

008 

Second  requested  unit 

06 

UNIT  3 

C 

008 

Third  requested  unit 

Primary  Key  :  SERNO 

Fig.  16.  Structure  for  File  REQUESTS. 


d.  ASSIGNED  File 


This  is  a  temporary  file  created  during  the 
assignment  processing,  containing  information  concerning 
theofficers  to  be  assigned  to  some  unit.  Details  of  this  file 
areprovided  in  Figure  17. 


FIELD 

NAME 

TYPE 

WIDTH 

F I ELD-EXPLANAT I ON 

01 

SERNO 

C 

005 

Officer's  serial  number 

02 

RANK 

C 

002 

Rank 

03 

SOURCE 

C 

004 

Source  (MA  or  NCOS) 

04 

SPECIALTY 

c 

001 

Speci al ty 

05 

UNITNAME 

c 

008 

Unit  name 

06 

ASGNDATE 

DATE 

008 

Assignment  date 

07 

ASNWEIGHT 

N 

002 

Assignment  Weight 

e.  UNITORG  File 


This  -file  contains  information  about  the  organi¬ 
zation  of  each  unit  according  to  the  operational  readiness 
type  and  type  of  echelon  as  depicted  in  Figure  IS. 


FIELD 

NAME 

TYPE 

WIDTH 

01 

ECHELON 

C 

005 

02 

READINESS 

c 

001 

03 

MAC06 

N 

002 

04 

MAC05 

N 

002 

05 

MAC04 

N 

002 

06 

NC0SC04 

N 

002 

07 

NC0ST04 

N 

002 

08 

NC0SA04 

N 

002 

09 

MAC03 

N 

002 

10 

NC0SC03 

N 

002 

11 

NC0ST03 

N 

002 

12 

NC0SA03 

N 

002 

13 

MAC02 

N 

002 

14 

NC0SC02 

N 

002 

15 

NC0ST02 

N 

002 

16 

NC0SA02 

N 

002 

17 

MAC01 

N 

002 

18 

NC0SC01 

N 

002 

19 

NC0ST01 

N 

002 

20 

NC0SA01 

N 

002 

FIELD-EXPLANATION 

Type  of  echelon 
Operational  readiness 
MA  commanding  colonels 
MA  commanding  It.  colonels 
MA  commanding  majors 
NCOS  commanding  majors 
NCOS  technician  majors 
NCOS  administrative  majors 
MA  commanding  captains 
NCOS  commanding  captains 
NCOS  technician  captains 
NCOS  admi ni strat i ve  captains 
MA  commanding  1st  lieuten. 
NCOS  commanding  1st  lieuten. 
NCOS  technician  1st  lieuten. 
NCOS  admin.  1st  lieutenants 
MA  commanding  2nd  lieuten. 
NCOS  commanding  2nd  lieuten. 
NCOS  technician  2nd  lieuten. 
NCOS  admin.  2nd  lieutenants 


Primary  Key:  -CECHELON,  READINESS)- 


Fig.  18.  Structure  for  File  UNITORG. 


f.  UNIT  File 

This  file  contains  information  about  each  unit. 
The  Structure  of  the  file  and  explanation  of  fields  is 
depicted  in  Figure  19. 
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FIELD 

NAME 

TYPE 

WIDTH 

F I ELD— EXPLANAT I ON 

01 

UNITNAME 

C 

008 

Unit  name 

02 

CATEGORY 

C 

001 

Unit  category 

06 

ECHELON 

c 

005 

Type  of  echelon 

04 

READINESS 

c 

001 

Unit  readiness 

05 

CITY 

c 

010 

City  of  unit  station 

06 

COUNTY 

c 

010 

County  of  unit  station 

Primary  Key:  UNITDESCR 


Fig.  19.  Structure  -for  File  UNIT. 


h.  HISTORIC  File 

This  -file  records  all  major  officer 's  transactions 
which  have  taken  place  during  his  career.  Major  transactions 
are  considered  to  be  the  nomination,  promotions,  assignments, 
retirement,  and  death.  Usually  there  are  more  than  one  entry 
-for  each  officer  in  this  -file.  The  structure  o-f  the  -file  and 
field  explanation  is  shown  in  Figure  20. 


FIELD 

NAME 

TYPE 

WIDTH 

F I ELD-EXPLANAT I ON 

01 

SERN0 

C 

005 

Officer's  serial  number 

02 

RANK 

c 

002 

Officer's  rank 

03 

TRANSTYPE 

c 

012 

Transaction  type 

04 

UNIT 

c 

008 

Unit  name 

05 

TRANSDATE 

DATE 

008 

Date  the  transaction  occured 

06 

ORDER ID 

C 

020 

Order  caused  the  transaction 

Primary  Key:  -CSERN0,  TRANSDATE)- 

Fig.  20.  Structure  for  File  HISTORIC 
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SCHOOLS  File 


This  -file  contains  information  about  military  and 
non-military  studies  of  the  officers.  It  is  possible  for  an 
officer  to  have  more  than  one  record  in  this  file  depending  on 
the  number  of  schools  he  has  attended.  Records  are  created 
only  for  officers  who  studied  for  at  least  one  year  in  some 
school.  Details  are  shown  in  Figure  21. 


FIELD 

NAME 

TYPE 

WIDTH 

F I ELD-EXPLANAT I ON 

01 

SERNO 

C 

005 

Officer's  serial  number 

02 

SCH00LNAME 

c 

010 

School -name 

03 

DEGREE 

c 

012 

Title  obtained 

04 

OBJECT 

c 

018 

Object  of  studies 

05 

COUNTRY 

c 

010 

Country  of  studies 

06 

DURATION 

N 

002 

Studies  duration  in  months 

07 

GRADDATE 

DATE 

008 

Graduation  date 

Primary  Key  :  < SERNO , SCHOOLNAME> 

Fig.  21.  Structure  of  file  SCHOOLS. 

i.  SELECTED  file 

This  file  contains  all  officers  who  have  been  se¬ 
lected  by  the  Branch  to  study  in  some  school  for  at  least  one 
year.  The  structure  of  the  file  is  shown  in  Figure  22. 
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FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

005 

02 

SCH00LNAME 

C 

010 

03 

SCH00LYEAR 

c 

002 

F I ELD-EXPLANAT I ON 

Officer's  serial  number 
Name  of  the  school 
Year  the  officer  will  be 
sent  to  the  school 


Primary  Key:  -CSERNO> 

Fig.  22.  Structure  far  File  SELECTED 

j.  USERLOG  File 

This  file  records  all  users'  activities  on  the 
database  system.  Details  of  the  file  structure  and  field- 
explanation  are  shown  in  Figure  23. 


FIELD 

NAME 

TYPE 

WIDTH 

FIELD-EX  PL AN AT I ON 

01 

USERNAME 

C 

018 

User's  name  used 

the  system 

02 

TASK 

C 

010 

Task  performed  in 

the  system 

03 

PROGRAME 

c 

10 

Program  executed 

03 

LOGDATE 

DATE 

008 

Date  of  using  the 

system 

04 

LOGTIME 

C 

005 

Time  of  using  the 

system 

Primary  Key:  -CLOGDATE ,  LOGTIME> 

Fig.  23.  Structure  for  File  USERLOG. 

i.  USERID  File 

This  file  contains  all  valid  passwords  and  the 
user's  name  corresponding  to  each  password,  as  it  is  described 
in  Figure  24. 


1  JV  ’J v  ■ 


FIELD  NAME 


TYPE  WIDTH  FIELD-EXPLANATION 


01  PASSWORD  C  006  A  predefined  password 

02  USERNAME  C  018  User's  name 

Primary  Key:  PASSWORD 


Fig.  24.  Structure  -for  File  USERID. 


4.  Conceptual  Database  Structure 

The  -files  described  above  are  related  as  illustrated 
in  the  entity/relationship  diagram  shown  in  Fig.  25.  The 
rectangles  represent  entity  sets  (-files),  and  the  diamonds 
repesent  relationships  between  entity  sets.  A  relationship  is 
also  an  entity  set  containing  attributes  (usually  the  keys) 
-from  all  other  entity  sets  which  are  linked  together  via  this 
relationship.  As  we  can  see  in  this  diagram  each  officer 
serves  in  some  unit  which  has  an  organization,  he  requests 
some  units  to  be  assigned  to  in  his  next  assignment,  he  may  be 
assigned  to  some  unit,  he  may  have  studied  in  some  school (s? 
or  he  may  have  been  selected  to  study  in  some  school,  and  he 
has  some  historic  data.  The  entity  sets  USERID  and  USERL0G 
are  not  linked  with  the  other  entity  sets  in  the  diagram  since 
their  function  is  independent  from  the  other  ones. 

Finally,  the  relational  database  scheme  is  presented 
in  Figure  26. 


OFFICER 


SERVES 

REQUESTS 

ASSIGNED 

UNIT 

UNITORG 


SELECTED 

SCHOOLS 

HISTORIC 

USERID 

USERLOG 


Fig.  25.  Ent i ty/Rel at i onshi p  Diagram. 


{NAME,  SERNO,  RANK,  NDMYEAR,  SPECIALTY,  SOURCE, 
NOMDATE,  PROMDATE,  ASNWEIGHT , ORIGCITY , ORIGCOUNTY , 
MARSTAT,  CHILDREN,  WORKWIFE3- 

-C  SERNO ,  UNITNAME,  ENROLDATE,  DUTY> 

•C  SERNO ,  WCF  INI  SHED ,  SUBMDATE ,  UNIT1  ,  UNIT2,  UNIT3> 

•C  SERNO ,  RANK,  SOURCE,  SPECIALTY,  UNITNAME, 

ASGNDATE ,  ASNWEIGHT> 

-CUNITNAME,  CATEGORY,  ECHELON,  READINES,  CITY, 
COUNTY> 

{ECHELON,  READINESS,  MAC06 ,  MAC05,  MAC04 ,  NC0SC04 , 
NC0ST04 ,  NC0SA04 ,  MAC03 ,  NC0SC03,  NC0ST03 , 

NC0SA03 ,  MAC02,  NC0SC02 ,  NC0ST02 ,  NC0SA02 ,  MACOl , 
NCOSCOl ,  NCOSTOl,  NCOSAOIT 

{SERNO,  SCHOOLNAME,  SCHOOL YEAR> 

{SERNO,  SCHOOLNAME,  DEGREE,  OBJECT,  COUNTRY, 

DURATION,  GRADDATET 

{SERNO,  RANK,  TRANSTYPE,  UNIT,  TRANSDATE, 

ORDERID> 

{PASSWORD,  USERNAMET 

{USERNAME,  TASK,  PROGNAME,  LOGDATE,  LOGT I ME> 


Fig.  26.  The  Relational  Database  Scheme. 


S.  Output  Design 


The  most  important  -feature  o-f  an  in-formation  system 
-for  users  is  the  output  it  produces.  No  matter  how  reliable  a 
system  is,  if  it  does  not  produce  quality  output,  users  may 
feel  the  entire  system  unnecessary.  [Ref.  6:  p.  2313 

The  term  'output'  is  applied  to  any  information  produ¬ 
ced  by  a  system  whether  printed,  displayed,  or  spoken.  In  our 
case  the  produced  output  will  be  printed  and/or  displayed, 
depending  on  how  the  user  wants  it.  Our  goal  is  to  design  the 
output  in  such  a  way  that  it  can  be  easily  read  and  understood 
by  the  user. 

As  discussed  earlier  the  system  output  will  be  lists 
and  reports  (Figure  13).  The  length  of  the  output  lines  will 
be  up  to  80  characters  in  order  to  be  able  to  fit  either  on 
the  screen  or  on  the  standard  sheet  of  paper. 


a.  Lists 

(1)  List  of  Schedul ed  Assignments.  This  list  is 
produced  each  time  assignment  processing  function  is  executed. 
The  format  of  this  list  is  shown  in  Figure  27. 


ABD/HAGS 


DATE: 


LIST  OF  SCHEDULED  ASSIGNMENTS  FOR  ...(RANK).... 


SERIAL 

NUMBER 


UNIT 


Armstrong  David  K.  AC/1  AC 
Babbit  Almon  P.  AS 

Norton  Harold  G.  ABD/HAGS 


AS 

ABD/HAGS 
1 1 1  FAB 


DUE 

DATE 


05/21/86 

05/25/86 

05/14/86 


Fig.  27.  List  of  Scheduled  Assignments. 
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(2)  List  of  Officers  in  Any  Desired  Order.  This 
List  (Figure  28)  contains  all  Artillery  officers  in  any  o-f  the 
•following  orders: 

(a)  Alphabetical. 

(b)  Rank. 

(c)  Specialty. 

(d)  Rank  and  al phabeti cal . 

ABD/HAGS  DATE: 

LIST  OF  ARTILLERY  OFFICERS  IN .  ORDER 

! RANK !  NAME  ! SER I AL ! SOU- ! SPEC I - !  UNIT  " MARITAL! 

: _ : _ :  number  :rce  :  altv  : _ ;  status  : 


08 

Down  Kenneth  R. 

2000 1 

MA 

C 

ABD/HAGS  M 

07 

Calaunan  Tend  G. 

20017 

MA 

C 

ARTC  M 

. 

• 

« 

• 

■ 

•  ■ 

Fig.  28.  List  o-f  Artillery  Off  icers  in  Some  Order. 

*3)  List  of  Officers  of  a  Desired  Unit .  This  list 
contains  all  officers  serving  in  a  specific  unit.  The  format 
of  the  list  is  shown  in  Figure  29. 


ABD/HAGS  DATE: ../../ 

LIST  OF  OFFICERS  SERVING  IN  . . . (UNIT) . . . 


:  rank; serial:  name  :  duties  [enrollment: 

:  :  number  : _ : _ :  date  : 

05  20261  Franclin  Adams  P.  Battalion  CDR  05/20/84 

04  20768  Ervin  Joseph  H.  Deputy  CDR  06/25/85 


.  List  of  Officers  of  a  Specific  Unit. 
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Fig.  29 


(4)  List  of  Of f icers  of  Any  Desi red  Rank.  This 
list  contains  all  Artillery  officers  of  any  desired  rank.  The 
format  of  the  list  is  shown  in  Figure  30. 


ABD/HAGS  DATE; ../../ 

LIST  OF  ARTILLERY  ...(RANK)... 


:  serial:  name  : source: specialty:  unit  i marital: 

:  NUMBER  : _ ; _ ! _ ! _ | _ I  STATUS  ! 


20270 

Bell  Richard  K. 

MA 

C 

111  FAB 

M 

20273 

Anzini  Danniel  D. 

MA 

c 

113  MHAB 

M 

20275 

Ariss  Bruce  F. 

MA 

c 

ABD/HAGS 

S 

20277 

Gray  Joseph  W. 

MA 

c 

AC/1  AC 

D 

• 

■ 

■ 

■ 

■ 

« 

■ 

• 

Fig.  30.  List  of  Officers  of  Any  Desired  Rank. 


<5)  List  o-f  Battalion  Commanders.  This  List  con¬ 
tains  all  Artillery  Battalion  commanders.  Details  of  the  list 
are  provided  in  Figure  31. 


ABD/HAGS 


DATE; ../../ 


LIST  OF  ARTILLERY  BATTALION  COMMANDERS 


RANK 

!  NAME 

:  UNIT 

!  ENROLLMENT  DATE 

05 

Cabral  David  T. 

212  FAB 

06/26/85 

05 

Gray  Joseph  W. 

112  FAB 

06/18/84 

05 

Franclin  Adams  P. 

211  FAB 

06/23/85 

05 

Norton  Harold  G. 

111  FAB 

07/01/84 

05 

Jarecki  Edward  L 

11  FA/AB 

07/28/85 

• 

• 

• 

* 

Fig.  31.  List  of  Battalion  Commanders 


(2)  Officer  's  Status  Report.  This  report  provides 
all  in-formation  re-flecting  an  o-f-ficer's  current  status.  The 
format  of  this  report  is  shown  in  Figure  34. 


ABD/HAGS  DATE; 

OFFICER'S  STATUS  REPORT 

NAME  ;  . 

SERIAL  NUMBER  :  . 

RANK  :  . 

SOURCE  :  .... 

SPECIALTY  :  . 

NOMINATION  YEAR  :  .. 

MARITAL  STATUS  :  . 

CHILDREN  :  . 

ORIGIN  :  . 

UNIT  :  . 

ENROLLMENT  DATE  s 

DUTIES  ;  . 


Fig.  34.  Officer's  Status  Report. 


B.  PHYSICAL  DESIGN 


Physical  design  is  the  process  of  transformation.  The 
logical  schema  is  transformed  into  a  working  system.  This 
transf ormat ion  is  done  through  the  tools  that  are  available 
with  the  DBMS  to  be  used.  CRef.  1:  p.  1883  More  specifically, 
during  this  step  we  will  define  the  files  described  above  and 
store  them  into  our  database,  as  well  as  create  the  programs 
that  will  manipulate  the  files  through  the  dBASE  III  DBMS. 

The  database  schema  or  more  simply  the  files  that  form  the 
database  are  defined  via  the  Data  Definition  Language  (DDL) 
provided  by  the  DBMS,  and  the  programs  are  created  via  the 
Data  Manipulation  Language  (DML) .  dBASE  III  provides  only  one 
language  which  serves  both  purposes. 
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Fi  1  m  Definition /Creation 


The  files  are  defined  by  using  the  'CREATE'  dBASE  III 
command.  This  command  allows  us  to  define  the  structure  of 
each  file  to  be  used  by  the  database  system.  Since  a  file  is  a 
collection  of  records  of  the  same  type,  our  job  here  is  to 
describe  the  structure  of  the  records  of  each  file,  i.e.,  the 
attribute  (field)  names,  their  types  (character,  numeric, 
logical,  date),  and  their  sizes.  Using  this  command  we  define 
all  files  described  above. 

The  records  of  each  file  are  stored  in  the  database  by 
using  the  command  'APPEND'.  Before  we  use  this  command  we  have 
to  open  the  database  file  the  records  to  be  stored  in  by  using 
the  command  'USE  fn',  where  'fn'  is  the  file  name.  The  records 
are  stored  sequentially  in  the  database  file. 

A  small  number  of  records  for  each  file  has  been 
created  and  stored  in  the  database,  so  that  we  will  be  able  to 
test  the  programs  when  they  have  been  completed. 

2.  Program  Creation 

The  next  step  is  to  write  the  software  which  will 
perform  the  specified  functions  by  manipulating  our  database 
via  the  dBASE  III  DBMS,  and  producing  the  required  output. 

Our  primary  goal  is  to  produce  a  comprehensive  working 
system  that  can  be  effectively  and  easily  used  by  people  who 
are  not  programmers. 

The  whole  program  has  been  decomposed  into  a  number  of 
interconnected  modules  in  a  hierarchical  top-down  fashion,  as 
depicted  in  the  program  structure  chart  in  Figure  35.  The 
actual  programs  are  presented  in  APPENDIX  A. 


MAINPROG 


IV.  SYSTEM  IMPLEMENTATION 


Implementation  includes  all  those  activities  that  take 
place  to  convert  from  the  old  system  to  the  new.  The  new  auto¬ 
mated  system  which  has  been  already  developed,  is  proposed  to 
replace  the  existing  manual  system.  Proper  implementation  is 
essential  to  provide  a  reliable  system  to  meet  the  specified 
requi rements. 

The  aspects  of  implementation  which  will  be  discussed  here 
include  hardware  requirements ,  training  personnel,  conversion 
procedures,  and  software  descri pti on/documentati on . 


A.  HARDWARE  REQUIREMENTS 

To  implement  our  system  using  dBASE  III  DBMS  we  need  a 
16-bit  mi crocomputer  using  MS  DOS  or  PC  DOS  version  2.0  or 
later.  Any  16-bit  mi crocomputer  that  is  fully  software  compa¬ 
tible  with  the  the  IBM  PC  or  IBM  PC/XT  should  be  able  to  use 
the  system.  The  computer  must  have  a  minimum  of  320K  of  RAM, 
one  20M  byte  hard-disk  drive,  and  at  least  one  floppy  disk 
drive.  Any  printer  that  can  print  80  columns  of  text  can  be 
used. 

The  RAM  is  allocated  as  follows. 

1.  About  50K  bytes  for  operating  system  requirements 
(resident  part  of  DOS). 

2.  180K  bytes  for  the  dBASE  III  system  program. 

3.  About  16K  bytes  for  the  user's  program  currently  being 
executed  (this  is  the  size  of  the  biggest  program) . 
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4. 


The  rest  of  memory  is  allocated  to  the  required  working 
areas  (buffers  -for  the  -files  currently  being  open). 


In  case  we  want  to  use  another  customer-suppl i ed  program 
(word  processor,  etc.)  along  with  dBASE  III,  additional  memo¬ 
ry  is  required. 

The  hard-disk  size  has  been  calculated  on  the  basis  o-f  a 
full  scale-model  as  follows. 

1.  About  130K  bytes  for  the  user  programs. 

2.  About  12M  bytes  for  the  required  database  files  and 
index  files.  These  files  will  contain  data  for  10,000 
officers  (worst  case  senario). 

3.  About  12K  bytes  for  the  format  files. 

4.  About  100K  for  text  files. 

The  rest  of  the  hard-disk  space  can  be  used  for  future 
improvements  of  the  system,  as  well  as  for  other  data  storage 
needs. 


B.  TRAINING  PERSONNEL 

Since  the  system  is  implemented  on  a  mi crocomputer ,  the 
need  for  training  is  limited  only  to  a  few  individuals  who 
will  be  both  operators  and  users.  Those  individuals  who  are 
going  to  use  the  new  system  should  know  how  to  use  a  micro¬ 
computer  (how  to  turn  on  the  system,  how  to  insert  a  diskette, 
when  it  is  safe  to  turn  off  the  equipment  without  danger  of 
data  loss,  or  how  to’ determine  whether  a  problem  arising  is 
caused  by  the  equipment,  software  or  something  they  have  done 
in  using  the  system),  what  software  they  will  use  for  the 
system,  and  how  they  should  use  it  to  perform  a  specific  task. 

As  the  above  discussion  demonstrates ,  there  are  two 
aspects  to  user  training:  f ami  1 i ari zati on  with  the  processing 
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system  itself  (equipment  used)  and  training  in  using  the  the 
application  (that  is,  the  software  that  accepts  the  data, 
processes  it,  and  produces  the  results).  Our  intent  is  to 
train  a  few  users  how  to  use  the  system  in  order  to  accomplish 
their  task,  and  not  to  teach  them  how  to  write  new  programs. 
Therfore,  both  aspects  mentioned  above  can  be  covered  in  a 
very  short  time  period  (  one  or  two  weeks). 


C.  CONVERSION  PROCEDURES 

Conversion  is  the  process  of  changing  the  old  system  to 
the  new  one.  The  method  we  will  use  for  converting  from  the 
existing  manual  to  the  new  automated  system  is  the  parallel 
systems.  That  is,  the  Branch  will  continue  to  operate  the  old 
system  in  the  accustomed  manner  but  it  also  will  begin  using 
the  new  system.  This  method  is  the  safest  conversion  approach, 
since  it  guarantees  that  if  possible  errors  will  arise  in 
using  the  new  system  (processing  errors,  inability  to  handle 
certain  types  of  transactions,  or  other  inefficiencies)  they 
will  not  harm  the  Branch,  since  the  old  system  is  still  in 
use.  Another  important  advantage  of  the  parallel  systems  ap¬ 
proach  is  that  before  the  Branch  abandons  the  manual  system, 
there  will  be  a  trial  period  for  the  new  system  during  which 
revealed  errors  and  inefficiencies  can  be  eliminated  without 
loss  of  time,  revenue,  or  servi ce. CRef .  6:  p.  5321 


D.  SOFTWARE  DESCRIPTION/DOCUMENTATION 

The  programs  which  implement  our  database  system  have  been 
grouped  into  six  categories  according  to  the  function  they 
perform:  main  program,  main-menu  and  sub-menu  programs, 
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programs  supporting  the  update  operations,  programs  performing 
the  assignment  processing,  programs  producing  the  required 
lists  and  reports,  and  miscellaneous  programs.  All  programs 
(code),  as  well  as  lists  and  reports  produced  by  the  programs 
are  presented  in  APPENDIX  A. 

1 .  Main  Program 

This  program  controls  the  entire  operation  of  the 
system  and  it  -is  the  only  program  that  the  user  calls  by  name 
(MAINPRQG) .  After  initializing  basic  dBASE  III  functions, 
MAINPROG  checks  if  the  user  is  authorized  to  use  the  database 
system  by  prompting  him  to  enter  his  password.  Unauthorized 
users  are  aborted  and  the  program  exits  automatically  to  the 
operating  system  (DOS) ,  displaying  the  appropriate  message. 

In  case  the  user  is  an  authorized  one,  MAINPROG  calls 
program  GRFLAG  which  displays  on  the  screen  the  Greek  Flag. 
After  a  small  delay  it  calls  program  DBSTITLE  which  provides 
the  title  of  the  database  system  and  prompts  the  user  to  hit 
any  key  to  continue.  Then  program  MMENU  is  called  which  is  the 
main— menu  of  the  system,  and  pauses  waiting  for  the  user  to 
make  his  choice.  Then  a  CASE  statement  permits  the  program  to 
branch  to  the  appropriate  program  group  according  to  the  users 
choice  or  exit  either  to  dBASE  III  or  to  the  underlying 
operating  system.  A  DO  WHILE  loop  causes  the  process  to  be 
repeated  until  the  user  selects  option  4  or  5  in  which  case 
the  program  terminates  and  control  passes  to  dBASE  III  or 
the  operating  system,  respectively. 


to 


2.  Main-Menu  and  Sub-menu  Programs 

a.  Main-Menu  Program  (MMENU) 

This  program  displays  on  the  screen  the  main-menu. 
This  menu  provides  a  screen  of  in-formation  that  shows  the  user 
what  -functions  can  be  performed  and  how  to  select  them.  Those 
functions  correspond  to  update  operations,  assignment  proces¬ 
sing,  and  report  generation.  In  addition  it  provides  the 
option  to  exit  to  either  dBASE  III  or  the  operating  system.  A 
flashing  label  at  the  top  of  the  menu  informs  the  user  that 
the  main-menu  i s  on  the  screen,  and  a  highlighted  label  at  the 
bottom  promts  him  to  enter  his  choice.  The  user's  choice  is 
expressed  by  one  of  the  numeric  characters  1  through  9.  A 
'RANGE'  statement  checks  each  time  the  user  types  a  character 
and  in  case  it  lies  outside  the  specified  range  an  appropriate 
message  is  displayed.  Also  the  'PICTURE  '9'  '  statement 
guarantees  that  the  program  does  not  accept  alphabetical  or 
other  characters.  The  subsequent  sub-menus  described  below 
work  in  a  similar  fashion. 

b.  Sub-menu  Programs 

Three  sub-menus  corresponding  one  per  basic 
function  of  the  system  (update  operations,  assignment  proces¬ 
sing,  report  generation)  quide  the  user  to  perform  the  appro¬ 
priate  task.  Those  sub-menus  are  created  by  the  following 
programs. 

(1)  UPDTMENU.  This  program  provides  a  screen  of 
information  concerning  the  update  operations.  Via  this  program 
the  user  can  insert,  modify,  or  delete  records  from  the  files 
whose  names  are  presented  on  the  screen.  UPDTMENU  is  called 
by  the  DBUPDATE  program  in  case  the  user  selects  option  1  from 
the  main-menu. 


(2)  ASPRMENU.  This  program  displays  information 
concerning  the  assignment  processing  operations.  Through  this 
program  the  user  can  access  any  of  the  programs  which  perform 
the  officers'  assignments.  ASPRMENU  is  called  by  the  ASSIGNTS 
program  in  case  the  user  selects  option  2  from  the  main— menu. 

(3)  RGMENU.  This  program  provides  a  screen  of 
information  concerning  the  report  generation  operations.  From 
this  submenu  the  user  can  access  any  of  the  programs  which 
produce  the  required  lists  and  reports.  RGMENU  is  called  by 
the  REPORTS  program  in  case  the  user  selects  option  3  from  the 


main-menu. 


3.  Programs  Sue 


. ng  the  Update  Operations 


This  group  of  programs  performs  all  the  update  opera¬ 
tions.  That  is,  using  these  programs  we  can  insert  new  records 
into  the  database  files,  as  well  as  modify  or  delete  existing 
records  from  the  database  files.  The  programs  which  implement 


those  operations  are  the  following: 


a.  DBUPDATE 


This  program  controls  the  entire  update  operation 


and  is  executed  whenever  the  user  selects  option  1  from  the 


main-menu.  First  the  program  calls  the  UPDTMENU  program  which 
is  the  update  sub-menu  we  described  above,  and  pauses  waiting 


for  the  user  to  make  his  choice  which  is  stored  in  the  vari¬ 


able  'updteode'.  Then  a  CASE  statement  permits  the  program  to 


branch  to  the  corresponding  update  program  or  exit  to  main- 


menu.  A  DO  WHILE  loop  allows  the  program  to  keep  running  until 


the  user  decides  to  exit  to  main-menu. 


b. 


INSERTOR 


This  program  allows  the  user  to  insert  new  records 
into  the  OFFICER  -file  which  is  the  main  database  -file.  It  is 
called  by  the  DBUPDATE  program  in  case  the  user  selects  option 
1  -from  the  update  sub-menu  (UPDTMENU  program)  . 

The  program  calls  the  MFRAME  program  which  dis¬ 
plays  a  window  on  the  le-ft  hal-f  o-f  the  screen  into  which  all 
program  messages  and  user  data  are  placed  during  the  execution 
o-f  the  program.  A  message  is  displayed  on  the  screen  prompting 
the  user  to  enter  the  serial  number  o-f  the  officer-  to  be 
inserted  into  the  file.  Then  the  program  searches  the  OFFICER 
file  using  as  key  the  officer's  serial  number  to  see  whether 
the  record  exists  in  the  database  or  not.  If  the  search  is 
successful ,  a  message  is  displayed  informing  the  user  that  the 
record  already  exists,  and  he  is  asked  if  there  are  more 
records  to  be  inserted  into  the  database.  In  "case  the  search 
operation  is  unsuccessful  (that  is,  record  does  not  exist  in 
the  database)  the  user  is  asked  if  he  needs  the  codes  required 
for  the  insert  operation  (rank,  source,  specialty,  and  marital 
status  codes).  If  his  answer  is  'Y'  (yes)  the  program  WINDOW-3 
is  called  which  displays  a  window  occupying  the  right  half  of 
the  screen  containing  all  codes  and  their  explanation.  In  this 
way  the  user  can  have  on-line  help  and  the  risk  of  incorrect 
data  input  is  reduced.  Next  the  format  of  the  record  to  be 
inserted  is  displayed  on  the  left  frame  and  the  cursor  is 
positioned  at  the  first  field. 

When  the  user  finishes  the  input  of  data  for  the 
particular  officer,  the  record  is  appended  to  the  OFFICER  file 
and  the  necessary  entries  are  created  in  some  other  database 
files.  Namely  a  record  is  created  into  the  HISTORIC  file 
containing  the  officer's  serial  number,  the  nomination  date, 
the  order  by  which  the  nomination  of  the  officer  has  been 


known,  and  the  unit  in  which  he  serves.  The  unit  name  and  the 
order  i  dent  1  f  i  cat  i  on  are  entered  by  the  user.  Then  the  created 
record  is  displayed  on  the  screen.  Also  a  record  is  created 
into  the  REQUESTS  file  containing  only  the  offficer's  serial 
number.  All  other  fields  remain  empty.  In  case  the  source  of 
the  officer  is  'NCOS'  (Non-Commissioned  Officers  School),  a 
record  is  created  into  the  SERVES  file  containing  his  serial 
number  the  unit  he  serves  and  the  enrollment  date. 

A  DO  WHILE  loop  keeps  the  program  running  as  long 
as  the  user's  answer  to  the  prompt  'MORE  INSERTIONS?  (Y/N) '  is 
'Y'  . 

c.  INSERTSR 

This  program  permits  the  user  to  insert  new 
records  into  the  SCHOOLS  file.  No  other  files  are  updated 
during  the  execution  of  this  program.  The  program  is  called  by 
the  DBUPDATE  program  in  case  the  user  selects  option  2  from 
the  update  sub-menu. 

An  officer  can  have  more  than  one  record  in  the 
SCHOOL  file  depending  on  what  and  how  many  schools  he  has  gra¬ 
duated  from.  The  process  goes  in  a  similar  way  with  the 
described  above  (INSERTOR  program)  except  that  the  search  is 
based  on  the  compound  key  consisting  of  the  fields  serial 
number  and  school  name  ( fSERNO , SCHOOLNAME> ) .  The  user's  answer 
'N'  to  the  program's  prompt  'MORE  INSERTIONS?  (Y/N)'  causes 
the  program  to  be  terminated. 

d.  INSERTHR 

Through  this  program  the  user  can  insert  new 
records  into  the  HISTORIC  file.  It  is  called  by  the  DBUPDATE 
program  whenever  the  user  selects  option  3  from  the  update 


sub-menu.  The  only  legal  transactions  which  can  cause  new 
records  to  be  inserted  into  the  HISTORIC  file  from  this 
program  are  those  concerning  retirement  or  death.  All  other 
transactions  are  aborted  by  the  program.  The  process  is  simi¬ 
lar  with  that  described  above. 

e.  MODIFYOR 

This  program  is  called  by  the  DBUPDATE  program  in 
case  the  user  selects  option  4  from  the  update  sub-menu,  and 
allows  him  to  modify  records  into  the  OFFICER  file. 

When  the  program  is  entered,  it  calls  the  MFRAME 
program  whose  purpose  has  been  explained  during  the  INSERTOR 
program  description.  Then  a  message  prompts  the  user  to  enter 
the  serial  number  of  the  officer  whose  record  is  to  be  modifi¬ 
ed.  The  program  searches  the  OFFICER  file  using  as  the  key  the 
serial  number  typed  by  the  user.  In  case  of  an  unsuccessful 
search  an  appropriate  message  is  displayed  and  after  a  small 
delay  the  user  is  asked  if  he  wants  to  perform  more  modifica¬ 
tions.  If  his  answer  is  'Y'  (yes)  the  process  is  repeated.  In 
the  case  of  a  successful  search  a  menu  is  displayed  inside  the 
frame  created  by  the  MFRAME  program  that  shows  the  user  which 
of  the  record-fields  can  be  modified  and  prompting  him  to 
enter  his  selection.  The  fields  which  can  be  modified  in  the 
OFFICER  file  are  the  'NAME',  'RANK'  and  'PROMDATE'  (promotion 
date),  and  those  concerning  the  family  status  ('MARSTAT', 
'CHILDREN',  'WORKWIFE').  After  the  user's  response,  the 
structure  of  the  fields  to  be  modified  are  displayed  on  the 
screen  (inside  the  frame)  and  the  cursor  is  positioned  at  the 
first  field.  After  the  displayed  fields  have  been  modified  by 
the  user,  the  modified  record  is  displayed  in  an  appropriate 
format. 
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In  case  the  rank  status  has  been  changed,  a  record 
in  the  HISTORIC  -file  is  automatically  created  including  the 
new  transaction  (PROMOTION).  The  new  record  is  displayed  on 
the  right  half  of  the  screen  in  a  formatted  way. 

The  process  keeps  going  until  the  user's  answer  to 
the  program's  prompt  'MORE  MDIFICATIONS?  (Y/N) '  is  'N'. 

f.  MODIFYRR 

This  program  allows  the  user  to  modify  records  in 
the  REQUESTS  file,  and  it  is  called  by  the  DBUPDATE  program  in 
case  the  user  selects  option  5  from  the  update  sub-menu.  All 
fileds  of  the  records  under  modification  can  be  changed  except 
the  serial  number  which  is  the  primary  key.  The  process  is 
similar  with  that  described  above,  except  that  it  is  simpler 
since  no  other  files  are  updated  during  the  execution  of  this 
program.  The  program  terminates  when  the  user's  answer  to  the 
program's  prompt  'MORE  MODIFICATIONS?  (Y/N)'  is  'N'. 

g.  DELETEOR 

Through  this  program  we  can  delete  records  from 
the  OFFICER  file.  If  is  called  by  the  DBUPDATE  program  when¬ 
ever  the  user  selects  option  6  from  the  update  sub-menu.  The 
process  goes  as  follows. 

The  program  calls  the  MFRAME  program  (described 
earlier)  and  prompts  the  user  to  type  the  serial  number  of  the 
officer  to  be  deleted.  Then  using  the  serial  number  as  the  key 
searches  the  OFFICER  file  to  find  the  corresponding  record.  In 
case  of  an  unsuccessful  search  an  appropriate  message  is  dis¬ 
played  and  the  user  is  asked  if  he  wants  to  continue  with  more 
deletions.  If  his  answer  is  'Y'  the  process  is  repeated.  In 
case  of  a  successful  search,  the  record  is  displayed  on  the 
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screen  along  with  the  prompt  'DELETE?  (V/N)'.  In  this  way  the 
user  has  the  chance  to  prevent  accidental  deletions  of 
records.  If  the  user's  answer  is  'Y'  the  record  is  marked  for 
deletion.  Then  the  program  searches  the  files  HISTORIC, 
SERVES,  REQUESTS,  and  SCHOOLS  with  the  same  key,  and  all 
records  that  match  with  the  key  are  marked  for  deletion. 

The  process  keeps  going  until  the  user's  answer  to 
the  program's  prompt  'MORE  DELETIONS?  (Y/N) '  is  'N'.  In  this 
case,  all  files  which  include  records  marked  for  deletion  are 
packed,  and  control  passes  to  the  DBUPDATE  program. 

File  packing  is  a  time-consuming  operation  since 
the  entire  file  is  searched  and  marked  for  deletion  records 
are  removed.  The  situation  is  even  worst  in  case  the  file 
is  an  index  one,  since  after  the  file  packing  the  file  is  re¬ 
indexed.  For  this  reason,  it  is  recommended  the  delete  opera¬ 
tions  to  be  deferred  until  before  the  end  of  the  user  session 
with  the  system,  whenever  possible. 

4.  Programs  Perf orminq  the  Assignment  Processing 


Assignment  processing  is  the  most  difficult  part  of 
the  system.  Two  programs  for  each  rank  perform  the  assignment 
process.  During  this  process  the  necessary  criteria 
(described  during  the  system's  design)  are  examined  and  a 
temporary  file  called  ASSIGNED  is  created.  This  file  contains 
the  assignments  of  the  officers  for  each  rank.  Although  these 
programs  work  in  a  similar  fashion,  we  did  not  write  only  one 
program  to  perform  the  entire  assignments,  because  this 
program  would  be  very  big  and  difficult  to  manage.  The 
programs  and  their  function  are  described  below. 


a.  ASSIGNTS 


This  program  controls  the  entire  assignment  pro¬ 
cessing,  and  it  is  called  from  the  MAINPRQG  program  whenever 
the  user  selects  option  2  from  the  main-menu.  The  program 
calls  the  ASPRMENU  program  (assignment  processing  sub-menu) 
described  earlier,  and  pauses  waiting  for  the  user  to  make  his 
choice  which  is  stored  in  the  variable  'asprcode'.  Then  a  CASE 
statement  allows  the  program  to  branch  to  the  corresponding 
program  and  to  perform  the  assignments  for  the  particular  rank 
or  exit  to  the  main-menu. 

b.  ASSI6N01 

This  program  performs  the  assignments  of  the  offi¬ 
cers  whose  rank  is  '01'  (1st  lieutenants).  It  is  called  by  the 
ASSIGNTS  program  in  case  the  user  selects  option  1  from  the 
assignment  processing  sub-menu. 

First  the  program  calls  the  MKAUXFLi  program  which 
builds  the  auxiliary  files  FILE3,  FILE4,  and  FILES.  The  file 
FILES  contains  all  1st  lieutenants  whose  last  assignment  took 
place  three  or  more  years  before  the  present  date  (system's 
date),  their  present  unit,  the  requested  units  for  their  next 
assignment,  and  their  assignment  weights.  The  other  two  auxi¬ 
liary  files  (FIL6,FILE7)  are  copies  of  the  file  FILES.  Then  it 
calls  the  WIND0W1  program  which  places  a  frame  on  the  screen 
into  which  messages  concerning  the  assignment  process  are 
displayed,  and  starts  the  assignment  processing  as  fallows. 

The  assignment  processing  is  a  two-pass  procedure. 
During  the  first  pass  the  program  loops  on  the  file  FILET  ta¬ 
king  one  record  at  a  time  and  tries  to  satisfy  the  requests  of 
the  officer  under  examination.  That  is,  it  takes  the  first  re¬ 
quested  unit  and  searches  the  FILES  file  to  find  an  officer 


whose  present  unit  is  the  one  requested  by  the  other  officer. 
In  case  of  a  successful  search,  the  program  searches  the  FILE6 
file  to  see  if  the  requested  unit  is  also  requested  by  another 
officer.  If  it  is,  then  checks  the  assignment  weights.  In  case 
he  has  the  greatest  weight  or  his  assignment  weight  is  equal 
to  the  greatest  assignment  weight  found  and  his  marital  status 
is  not  equal  to  'S'  (single),  his  request  is  satisfied,  his 
record  in  the  FILE6  file  is  marked  for  deletion  (so  that  it 
will  not  be  examined  during  the  next  loop),  the  record  in  the 
FILES  file  is  marked  for  deletion  (this  means  that  the  reque¬ 
sted  unit  has  been  granted  and  it  cannot  be  disposed  to  an¬ 
other  officer),  and  zero  (0)  assignment  weight  is  given  to  the 
officer.  This  number  is  going  to  be  added  to  the  total  assign¬ 
ment  weight  in  the  corresponding  field  of  the  OFFICER  file  la¬ 
ter.  This  weight  is  maintained  for  each  officer  during  his 
career  and  it  is  an  important  criterion  for  the  assignment 
process.  In  case  one  or  more  of  the  conditions  described  above 
is  false  the  program  takes  the  second  requested  unit  and  the 
same  process  is  repeated.  If  the  officer's  request  for  the 
second  unit  is  satisfied,  the  assignment  weight  which  is  given 
him  is  one  (1)  this  time.  Again  if  the  officer's  second  requ¬ 
est  cannot  be  satisfied,  the  program  takes  the  third  requested 
unit  and  the  same  process  is  repeated.  If  his  request  for  the 
third  unit  is  satisfied,  the  assignment  weight  is  two  (2).  Fi¬ 
nally,  if  none  of  the  three  requests  has  been  satisfied  during 
the  above  process,  the  assignment  of  the  officer  is  deferred 
for  the  second  pass.  The  output  of  the  first  pass  is  the  crea¬ 
tion  of  one  record  per  officer  into  the  ASSIGNED  file  contain¬ 
ing  among  other  fields  the  field  'unitname'.  This  field, 
in  case  of  a  satisfied  request  contains  the  name  of  the  new 
unit  the  officer  is  assigned  to,  or  an  asterisk  '•*'  in  the 
case  of  unresolved  assignment. 


During  the  second  pass  the  auxiliary  -file  FILE8  is 
created  which  has  exactly  the  same  structure  with  the  ASSIGNED 
•file  but  it  contains  only  the  unresolved  during  the  -first  pass 
assignments  (i.e. ,  UNITNAME  =  '*').  Then  the  program  loops  on 
this  -file  taking  one  record  at  a  time  and  tries  -for  another 
time  to  satisfy  unsatisfied  requests.  The  process  is  similar 
with  the  first  pass.  If  the  requests  for  an  officer  cannot  be 
satisfied  even  this  time,  the  program  checks  the  FILE5  file  to 
find  an  available  unit  (not  deleted  record)  in  which  the 
officer  can  serve  according  to  his  source  and  specialty.  In 
the  case  of  a  successful  search  the  contents  of  the  'unitname' 
field  into  the  ASSIGNED  file  for  the  corresponding  officer  are 
replaced  with  the  unit  name  found  in  FILE5,  the  record  in  the 
FILES  file  is  marked  for  deletion,  and  the  assignment  weight 
three  (3)  is  given  to  the  officer.  In  case  of  an  unsuccessful 
search  in  the  FILES  file,  there  is  no  way  for  the  officer  to 
be  assigned  to  a  new  unit  during  this  year,  and  the  corre¬ 
sponding  record  into  the  ASSIGNED  file  is  marked*  for  deletion. 

After  the  last  record  of  the  FILE8  file  h.as  been 
examined  and  the  end  of  file  is  encountered,  the  ASSIGNED  file 
is  packed,  all  the  auxiliary  files  are  deleted,  and  control 
passes  to  the  ASSIGNTS  program. 

c.  MKAUXFL1 


This  program  builds  the  auxiliary  files  FILES, 
FILE6,  and  FILE?  which  are  exactly  the  same.  Those  files  whose 
use  has  been  explained  above  are  built  by  combining  the  basic 
database  files  OFFICER,  SERVES,  and  REQUESTS  (copy  and  join 
operations).  The  purpose  of  those  files  is  to  isolate  the  of¬ 
ficers  under  assignment  whose  rank  is  '01'  (1st  lieutenants), 
and  who  have  all  the  requirements  for  the  assignment  process, 
gathering  all  the  data  into  only  three  small  files.  The  final 


result  is  that  by  having  all  required  data  into  -fewer  and 
smaller  files  we  reduce  the  overhead  of  the  search  operations 
(FIND,  LOCATE,  and  SEEK)  and  speed  up  the  processing. 

The  program  is  called  by  the  ASSIGN01  program.  It 
calls  the  program  WINDOW  which  displays  on  the  screen  a  frame 
into  which  messages  concerning  the  process  of  building  the 
auxiliary  files  are  placed.  After  the  auxiliary  files  have 
been  created  the  program  terminates  and  control  is  passed  back 
to  the  ASSIGN01  program. 

d.  ASSIGN02 

This  program  performs  the  assignments  of  the  2nd 
lieutenants.  It  is  called  by  the  ASSIGNTS  program  in  case  the 
user  selects  option  2  from  the  assignment  processing  sub-menu. 

The  process  of  the  program  goes  in  a  similar  way 
as  the  ASSIGN01  program  with  the  following  exceptions: 

(1)  First,  the  2nd  lieutenants  who  graduate  from  the 
Military  Academy  are  assigned  to  the  Artillery  School 
for  1-year  training.  As  it  is  expected  no  assignment 
weights  are  examined,  neither  requests  exist. 

(2)  Next,  the  2nd  lieutenants  who  complete  their  1-year 
training  in  the  Artillery  School  are  assigned  to  the 
Artillery  Recruit  Training  Center.  Again  no  requests  or 
assignment  weights  are  examined. 

(3)  Then  all  2nd  lieutenants  whose  source  is  the  Military 
Academy  and  who  have  served  in  the  Artillery  Recruit 
Training  Center  are  assigned  to  the  combat  units  in 
which  they  can  serve  according  to  the  organization 
table  of  the  units.  During  this  process  only  the 
officers'  requests  are  examined,  since  the  assignment 
weight  is  zero  (0)  for  all  these  officers. 

(4)  Finally  the  assignments  of  the  2nd  lieutenants  whose 
source  is  the  Non-Commissioned  Oficers  School  and  who 
have  completed  the  necessary  time  in  the  same  unit 
(greater  than  or  equal  to  3  years)  are  performed. 


s.  MKAUXFL2 


This  program  is  called  by  the  ASSIGN02  program, 
and  it  builds  the  required  auxiliary  -files  -for  the  assignment 
processing  o-f  the  2nd  lieutenants.  Its  -function  is  exactly  the 
same  as  the  MKAUXFL1  described  above.  The  only  di-f-ference  is 
that  the  auxiliary  -files  built  contain  data  concerning  the  2nd 
lieutenants.  The  program  calls  the  WIND0W1  program,  and  when 
all  the  auxiliary  -files  have  been  built  control  passes  back  to 
the  ASSIGN02  program. 

-f .  ASSIGN03 

This  program  performs  the  assignments  o-f  the 
captains.  It  is  called  by  the  ASSIGNTS  program  in  case  the 
user  selects  option  3  -from  the  assignment  processing  sub-menu. 
Its  function  is  exactly  the  same  as  the  ASSIGN01  program 
described  earlier.  The  only  difference  is  that  it  makes  as¬ 
signments  for  the  captains  this  time. 

The  program  first  calls  the  MKAUXFL3,  and  next  the 
WIND0W1  programs.  After  its  termination,  control  passes  to  the 
ASSIGNTS  program. 

g.  MKAUXFL3 

This  program  is  called  by  the  ASSIGN03  program  du¬ 
ring  the  captains'  assignment  processing.  Its  structure  and 
function  is  exactly  the  same  as  that  described  in  MKAUXFL1. 
The  only  difference  is  that  the  auxiliary  files  FILES,  FILE6, 
and  FILET  contain  data  concerning  the  captains  to  be  assigned. 
The  program  calls  the  WINDOW  program.  After  its  termination, 
control  passes  to  the  ASSIGN03  program. 


h.  ASSI6N04 


This  program  performs  the  assignments  of  the 
majors  and  it  is  called  by  the  ASSIGNTS  program  in  case  the 
user  selects  option  4  from  the  assignment  processing  sub-menu. 
Its  structure  and  function  is  almost  the  same  as  the  ASSIGN01 
program  with  the  following  exceptions. 

(1)  First  the  majors  graduating  from  the  War  College  are 

assigned  to  staff  units  within  the  Branch.  Assignment 
weights  and  officers'  requests  are  taken  into 

consi derat  ion. 

(2)  Next,  the  rest  of  majors  whose  last  assignment  took 

place  two  or  more  years  before  the  present  date 

(system's  date),  are  assigned  to  units  inside  or 
outside  the  Branch,  or  to  the  War  College  for  training. 
Officers  assigned  to  staff  units  or  to  units  outside 
the  Branch  must  have  graduated  from  the  War  College. 
Assignment  weights  and  officers'  requests  are  examined. 
An  officer  is  assigned  to  the  War  College  for  training 
only  in  case  he  has  been  proposed  by  the  Branch.  For 
this  reason ,  the  file  SELECTED  is  checked  each  time  a 
major's  assignment  is  processed. 

The  program  calls  the  MKAUXFL4,  and  WIND0W1 
programs.  When  the  program  terminates,  control  passes  to  the 
ASSIGNTS  program. 


i .  MKAUXFL4 


This  program  is  called  by  the  ASSIGN04  program  and 
builds  the  required  auxiliary  files  for  the  assignment  proces¬ 
sing  of  the  majors.  Its  structure  and  function  is  similar  to 
the  MKAUXFL1  program.  The  program  calls  the  WINDOW  program. 
When  the  program  terminates,  control  is  passed  to  the  ASSIGN04 
program. 


j.  ASSI8NOS 


This  program  per-forms  the  assignments  o-f  the  lieu¬ 
tenant  colonels.  It  is  called  by  the  ASSIGNTS  program  in  case 
the  user  selects  option  5  -from  the  assignment  processing  sub¬ 
menu.  Its  structure  and  -function  is  almost  similar  to  the 
ASSIGN01  program,  with  the  -following  exceptions. 

(1)  The  lieutenant  colonels  can  be  assigned  to  units  inside 
or  outside  the  Branch. 

(2)  Q-f-ficers  assigned  to  sta-f-f  units  or  to  units  outside 
the  Branch  must  have  completed  the  requirements  for 
their  rank,  and  they  must  have  graduated  from  the  War 
Col  1 ege. 

The  program  calls  the  MKAUXFL5,  and  WIND0W1 
programs.  After  its  termination,  control  passes  to  the 
ASSIGNTS  program. 

k.  MKAUXFL5 

This  program  is  called  by  the  ASSIGN05  program  and 
builds  the  required  files  for  the  assignment  processing  of  the 
lieutenant  colonels.  Its  structure  and  function  is  similar 
to  the  MKAUXFL1  program.  The  program  calls  the  WINDOW  program. 
When  it  terminates,  control  passes  to  the  ASSIGN05  program. 

l.  ASSIGN06 

This  program  performs  the  assignments  of  the  colo¬ 
nels.  It  is  called  by  the  ASSIGNTS  program  in  case  the  user 
selects  option  6  from  the  assignment  processing  sub-menu.  Its 
function  is  similar  to  the  ASSIGN05  program.  The  program 
calls  the  MKAUXFL6,  and  WIND0W1  programs.  When  the  program 
terminates,  control  passes  to  the  ASSIFNTS  program. 


m.  MKAUXFL6 


This  program  is  called  by  the  ASSIGN06  program  and 
builds  the  required  auxiliary  -files  -for  the  assignment  proces¬ 
sing  o-f  the  colonels.  Its  structure  and  function  is  similar 
to  the  MKAUXFL1  program.  The  program  calls  the  WINDOW  program. 
After  its  termination,  control  passes  back  to  the  ASSIGN06 
program. 

5.  Programs  Producing  the  Regui red  Li sts  and  Reports 

All  programs  producing  the  required  lists  and  reports, 
have  been  kept  small  and  simple.  Using  the  report  generator 
facility  of  dBASE  III,  you  can  create  report  formats  up  to  80 
columns  wide  in  a  very  simple  way.  You  simply  give  a  file  name 
to  the  required  report,  and  define  its  format  in  the  way  that 
fits  your  needs.  Defining  the  format  means  providing  dBASE  III 
with  the  title  of  the  report,  the  size  of  the  page,  spacing, 
number  of  characters  per  line,  what  fields  of  the  records  will 
be  printed,  and  what  the  field  headers  will  be.  All  the  rest 
of  the  work  is  done  by  dBASE  III. 

Sample  lists  and  reports  produced  by  the  programs 
described  below,  are  presnted  in  APPENDIX  A. 

a.  REPORTS 

This  program  controls  the  entire  operation  of  this 
group  of  programs.  It  is  called  by  the  MAINPROG  (main  program) 
program  in  case  the  user  selects  option  3  from  the  main-menu. 
First,  the  program  cal  1 s  the  RGMENU  program  which  is  the 
report  generator  sub-menu  described  earlier,  and  pauses 
waiting  for  the  user  to  make  his  choice  which  is  stored  in  the 
variable  'repcode'.  Then  a  CASE  statement  permits  the  program 


to  branch  to  the  appropriate  program  within  the  same  group  of 
programs  according  to  the  users  choice  or  exit  to  the  main- 
menu.  A  DO  WHILE  loop  keeps  the  program  running  until  the  user 
decides  to  exit  to  main— menu. 


b.  LIST1 

This  program  is  called  by  the  REPORTS  in  case  the 
user  selects  option  1  -from  the  report  generator  sub-menu,  and 
its  purpose  is  to  produce  a  list  of  the  scheduled  assignments 
■for  some  requested  rank.  First,  the  program  calls  the  WINDQW2 
program  which  displays  a  window  on  the  screen  into  which 
program  messages  and  user  data  or  answers  are  placed.  A  mes¬ 
sage  prompts  the  user  to  speci-fy  the  rank.  Then,  according  to 
the  rank  the  user  enters,  the  program  builds  the  auxiliary 
file  AUXFILE1  which  contains  all  necessary  data  for  the 
requested  list.  This  file  is  built  by  combining  the  OFFICER, 
REQUESTS , and  SERVES  file  (COPY  and  JOIN  operations) .  When  the 
file  is  ready,  the  message  'PRINTER  OUTPUT?  CY/N) '  prompts  the 
user  to  specify  if  he  wants  a  hardcopy  printout.  If  his  answer 
is  'Y'  (yes),  another  message  is  displayed  requesting  from  the 
user  to  set  the  printer  on  and  to  hit  any  key  to  continue. 
Then  the  program  pauses  waiting  for  the  user's  action.  Final¬ 
ly,  the  command  'REPORT  FORM  MKLIST1 '  causes  the  requested 
list  to  be  displayed  on  the  screen,  or  both  displayed  on  the 
screen  and  printed  by  the  printer.  MKLIST1  is  the  format  file 
we  have  defined  in  the  way  we  described  earlier.  After  this, 
the  auxiliary  file  is  deleted  and  control  passes  to  the 
REPORTS  program. 

c.  LIST2 

This  program  is  called  by  the  REPORTS  program  in 
case  the  user  selects  option  2  from  the  report  generator 


,« 


sub-menu,  and  creates  a  list  of  officers  serving  in  same 
requested  unit. 

The  program's  -function  from  the  user's  side  of 
view  is  similar  to  the  LIST1  program  described  above.  The 
difference  is  that  this  time,  the  user  is  prompted  to  specify 
the  unit  name,  and  that  the  format  file  is  called  MKLIST2.  The 
program  calls  the  WINDQW2  program  whose  purpose  has  been 
explained  in  the  previous  program.  After  the  requested  output 
has  been  produced  control  passes  to  the  REPORTS  program. 

d.  LIST3 

This  program  provides  a  list  of  all  Artilery  offi¬ 
cers  in  some  requested  order.  It  is  called  by  the  REPORTS  pro¬ 
gram  in  case  the  user  selects  option  3  from  the  report  gene¬ 
rator  sub-menu. 

First,  the  program  calls  the  WINDQW2  program.  Then 
a  screen  of  information  concerning  the  possible  orders  is  dis¬ 
played  inside  the  window,  and  a  message  prompts  the  user  to 
select  the  order  he  likes  (by  seniority,  alphabetically,  by 
specialty,  etc.).  According  to  the  users  choice,  a  CASE 
statement  allows  the  program  to  select  the  appropriate  index 
file.  We  do  not  use  the 'SORT'  dBASE  III  command  to  sort  a  file 
in  some  order ,  because  it  is  time  and  space  consuming. 
Instead,  we  use  existing  index  files  which  are  always 
presented  in  the  order  of  the  field  on  which  they  are  indexed. 
In  all  other  aspects  the  program  works  in  the  same  way  as  the 
LIST1  and  LIST2  programs  except  that  the  format  file  is  called 
MKLIST3  this  time. 

e.  LIST4 

This  program  is  called  by  the  REPORTS  program  in 
case  the  user  selects  option  4  from  the  report  generator 

80 


sub-menu.  The  program  produces  a  list  of  o-f-ficers  o-f  some 
requested  rank.  The  process  goes  exactly  in  the  same  way  as 
the  LIST1  program.  The  format  file  is  called  MKLIST4. 

f.  LISTS 


This  program  produces  a  list  of  the  Artillery  bat¬ 
talion  commanders,  and  it  is  called  by  the  REPORTS  program 
in  case  the  user  selects  option  5  from  the  report  generator 


sub-menu.  During  its  execution  the  user  is  asked  to  specify 
only  the  device  on  which  he  wants  the  output  (screen  or  print¬ 
er).  The  format  file  is  called  MKLIST5.  In  all  other  aspects 
the  process  goes  exactly  in  the  same  way  as  in  LIST1  program. 

g.  LIST6 

This  program  is  called  by  the  REPORTS  program  in 
case  the  user  selects  option  6  from  the  report  generator  sub¬ 
menu.  The  program  provides  a  list  of  all  officers  serving  out¬ 
side  the  Branch.  The  report  file  is  called  MKLIST6.  The  user 
is  asked  by  the  program  to  specify  only  the  device  on  which 
he  wants  the  output.  The  program  works  in  the  same  way  as  the 
LISTS  program. 


h.  REPORT 1 

This  program  creates  the  service  time  report  for 
any  requested  officer.  This  report  contains  all  the  major- 
transactions  of  an  officer  occurring  during  his  career.  It  is 
called  by  the  REPORTS  program  in  case  the  user  selects  option 
7  from  the  report  generator  sub-menu.  The  program  searches  the 
HISTORIC  file  and  prints  out  or  displays  on  the  screen  in  an 
appropriate  format  all  records  whose  key  matches  with  that 
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typed  by  the  user  when  he  was  asked  by  the  program  to  enter 
the  officer's  serial  number. 

i .  REP0RT2 

This  program  is  called  by  the  REPORTS  program  in 
case  the  user  selects  option  3  from  the  report  generator  sub¬ 
menu.  It  provides  a  status  report  for  any  requested  officer. 
This  report  contains  all  information  on  an  officer's  current 
status.  The  database  files  which  are  searched  are  the  OFFICER 
and  SERVES. 

6.  Mi  seel  1 aneous  Programs 

This  group  includes  all  programs  which  do  not  perform 
any  processing  of  data.  Their  purpose  is  to  provide  formatted 
messages,  and  display  windows  on  the  screen,  required  during 
the  database  processing.  These  programs  are  the  following: 

a .  GRFL AG 

This  program  is  called  by  the  MAINPROG  (main 
program) ,  and  forms  on  the  screen  the  Hellenic  Flag. 

b.  DELAY 

This  program  is  called  by  most  of  the  programs  du¬ 
ring  the  processing,  and  makes  various  program  messages  stay¬ 
ing  on  the  screen  for  a  certain  time  period. 

c.  DBSTITLE 

This  program  is  called  by  the  MAINPROG  program  and 
displays  on  the  scr  een  the  database  system  title. 
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d.  MFRAME 


This  program  is  called  by  the  INSERTOR,  MODIFYOR, 
and  DELETEOR  programs,  and  it  displays  a  -frame  on  the  le-ft 
hal-f  o-f  the  screen  into  which  messages  and  -formatted  records 
are  placed. 


e.  FRAME 

This  program  is  called  by  the  INSERTOR  and 
MODIFYOR  programs,  and  displays  a  small  window  into  which  -for¬ 
matted  records  -from  the  HISTORIC  -file  are  placed. 

•f.  WINDOW 

This  program  is  called  by  the  MKAUXFL1,  MKAUXFL2, 
MKAUXFL3 ,  MKAUXFL4 ,  MKAUXFL5,  and  MKAUXFL6,  and  its  purpose  is 
to  display  a  window  on  the  screen,  into  which  messages  in-form¬ 
ing  the  user  about  the  processing,  are  displayed. 

g.  WIND0W1 

This  program  is  called  by  the  ASSIGN01 ,  ASSIGN02, 
ASSIGN03,  ASSIGN04,  ASSIGN05,  and  ASSIGN06  programs  during  the 
assignment  processing,  and  it  serves  the  same  purpose  as  the 
the  previous  program. 

h.  WIND0W2 

This  program  is  called  by  the  LIST1 ,  LIST2,  LIST3, 
LIST4,  LIST5,  LIST6,  REPORT 1 ,  and  REP0RT2  programs,  and  it 
provides  the  same  -function  as  the  WINDOW  program. 


This  thesis  develops  a  personnel  database  system  model, 
suitable  -for  implementation  within  the  Artillery  Branch 
Directorate  of  the  Hellenic  Army  General  Staff.  This  system 
could  also  be  applied  to  any  Branch  Directorate  with  minor 
modifications. 

The  main  goal  is  to  increase  productivity,  effectiveness, 
accuracy,  and  speed,  as  far  as  personnel  management  is 
concerned,  as  well  as  to  decrease  the  national  expenditure, 
and  release  manpower  for  other  purposes.  Additionally,  the 
Branch  Director  will  be  able  to  make  faster  and  better  inform¬ 
ed  decisions  concerning  personnel. 

dBASE  III  was  used  as  the  DBMS,  since  it  is  a  relational 
model,  which  is  simple  and  understandable,  increases  independ¬ 
ency,  reduces  redundancy,  and  it  is  very  popular  in  the  micro¬ 
computer  world.  In  addition,  dBASE  III  contains  its  own  pro¬ 
gramming  language,  which  is  a  high  level  structured  language, 
very  efficient  for  data  manipulation. 

I  have  implemented  the  officers'  assignment  processing, 
and  the  most  usually  needed  lists  and  reports,  but  a  wide  va¬ 
riety  of  other  reports,  or  simple  queries  could  also  be 
created.  Emphasis  was  given  to  provide  simple  and  user  friend¬ 
ly  programs,  in  order  to  help  the  users  of  the  system  and  make 
their  job  easier. 

The  software  life  cycle  has  been  taken  into  account  during 
the  program  development.  Since  there  was  no  previous  experi¬ 
ence  on  the  topic  of  assignment  processing,  and  no  concrete 
specifications  about  the  organization  of  the  units  (the  tables 
used  are  figurative),  I  have  decided  to  follow  the  prototyping 
approach  in  order  to  create  the  programs.  This  means  that  some 


o-f  the  programs  may  need  further  improvements.  This  can  be 
done  in  close  cooperation  with  the  Branch,  which  will  be  the 
actual  user  o-f  the  system.  Programs  have  been  kept  small  and 
are  easily  modified  to  meet  future  improvement  needs.  In  this 
application  I  have  used  the  top-down  design  approach  which 
serves  the  above  goal . 

In  this  implementation  I  have  used  files  whose  records 
include  a  certain  amount  of  data.  Further  improvements  might 
add  more  fields  in  the  records,  so  that  the  system  can  provide 
expanded  information. 

This  thesis  constitutes  a  good  basis  for  further  improve¬ 
ments  in  the  area  of  personnel  management  and  especially  in 
the  field  of  automation  of  the  officers'  assignment  processing 
in  the  Hellenic  Army. 
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APPENDIX  A 


DATABASE  SYSTEM  PROGRAMS 


A.  MAIN  PROGRAM 


**«*********-*-»***** 


PROGRAM  MA INPROG 


*  This  is  the  main  program,  which  controls  the  operation 

*  the  entire  database  system 

CLEAR 

*  Initialize  basic  dBASE  III  -functions 
SET  TALK  OFF 

SET  DELIMITER  OFF 
SET  HEADING  OFF 
SET  EXACT  ON 

*  Declare  global  variables 
PUBLIC  psw 

STORE  '  '  TO  psw 

3  10,18  SAY  ' IKMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK, ' 
a  11,18  SAY  ' L9  L9 ' 

a  12,18  SAY  ' HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJ< ' 

*  Check  user's  authorization 

a  11,30  SAY  'ENTER  PASSWORD  ->' 

SET  CONSOLE  OFF 
ACCEPT  TO  psw 
SET  CONSOLE  ON 
USE  userid 

LOCATE  FOR  password  =  UPPER (psw) 

*  Unauthorized  user.  Exit  to  operating  System 
IF  EOF ( ) 

SET  COLOR  TO  W* 

a  11,28  SAY  '  UNAUTHORIZED  USER 
DO  delay 
SET  COLOR  TO  W 
QUIT 
END  IF 

*  Authorized  user 
STORE  .T.  TO  continue 
DO  gr-flag 

DO  delay 
DO  dbstitle 


DO  WHILE  continue 
DO  mmenu 

■#  per-form  appropriate  -function  depending  on  user's  choice 
DO  CASE 

CASE  selection  =  1 
DO  dbupdate 
CASE  selection  =  2 
DO  assignts 
CASE  selection  =  3 
DO  reports 
CASE  selection  =  4 

STORE  .F.  TO  continue 
CASE  selection  *  5 
QUIT 

ENDCASE 

ENDDO 

SET  TALK  ON 
SET  DELIMITER  ON 
SET  EXACT  OFF 
SET  HEADING  ON 
CLEAR  ALL 
RETURN 


B.  MAIN— MENU  AND  SUB-MENU  PROGRAMS 


1 .  Main-Menu  program 
**#***********#*•»*-»-»*  PROGRAM  MMENU 


*******#*4HHHHHt*-»-»##** 


*  This  program  displays  the  system  main-menu  on  the  screen 
CLEAR 

PUBLIC  selection 
STORE  0  TO  selection 

St  4,18  SAY  '  IKMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK, 
St  5,18  SAY  ' L9  L9 

8  6,18  SAY  'HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.K 

SET  COLOR  TO  W* 

St  5,35  SAY  'MAIN  MENU' 

SET  COLOR  TO  W 

3  7,18  SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 

a  8,18  SAY 
3  9,18  SAY 

a  10,18  SAY 
a  11,18  SAY 
a  12,18  SAY 
a  13,18  SAY 
a  14,18  SAY 
a  15,18  SAY 
a  16,18  SAY 

a  17,18  SAY  ' HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMC 
SET  COLOR  TO  W+ 

a  15,29  SAY  'ENTER  YOUR  SELECTION  ->: '  , 

GET  selection  PICTURE  '9'  RANGE  1,5 
READ 

SET  COLOR  TO  W 
RETURN 


DATABASE  UPDATE: . 1 

ASS  I GNMENT  PROCESS  I NG : . 2 

REPORT  GENERATOR: . 3 

END  OF  DATABASE  SESSION: . 4 

EXIT  TO  DOS: . 5 


********************  •** 


2.  Sub -Menu  Programs 
*******************  PROGRAM  UPDTMENU 


*  This  ptogram  displays  on  the  screen  the  update  sub-menu 
CLEAR 

PUBLIC  updtcode 
STORE  0  TO  updtcode 

3  4,18  SAY  ' IKMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK, ' 

a  5,18  SAY  ' L9  L9 ' 

a  6,18  SAY  'HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJC ' 
SET  COLOR  TO  W* 
a  5,35  SAY  'UPDATE  MENU' 

SET  COLOR  TO  W 


a 

7, 

18 

SAY 

' I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

/ 

a 

8, 

18 

SAY 

« 

/ 

a 

9, 

18 

SAY 

/ 

INSERT 

RECORDS 

INTO 

OFFICER 

FILE: . . . 

.  .  1 

t 

a 

10, 

18 

SAY 

/ 

INSERT 

RECORDS 

INTO 

SCHOOLS 

FILE: . . . 

.  .2 

/ 

a 

ii. 

18 

SAY 

t 

INSERT 

RECORDS 

INTO 

HISTORIC  FILE: . . 

.  .3 

t 

a 

12, 

18 

SAY 

* 

MODIFY 

RECORDS 

FROM 

OFFICER 

FILE: . . . 

.  .  4 

* 

a 

13, 

18 

SAY 

! 

MODIFY 

RECORDS 

FROM 

REQUESTS  FILE: . . 

.  .5 

t 

a 

14, 

18 

SAY 

t 

DELETE 

RECORDS 

FROM 

OFFICER 

FILE: . . . 

.  .  6 

/ 

a 

15, 

18 

SAY 

t 

EXIT  TO  MAINMENU:... 

•  .  T 

/ 

a 

16, 

18 

SAY 

/ 

r 

a 

17, 

18 

SAY 

/ 

/ 

a 

18, 

18 

SAY 

/ 

/ 

a 

19, 

18 

SAY 

'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

•  r 

SET  COLOR  TO  W+ 

a  17,29  SAY  'ENTER  YOUR  SELECTION  ->:  ' , 

GET  updtcode  PICTURE  '9'  RANGE  1,7 
READ 

SET  COLOR  TO  W 
RETURN 


********************  PROGRAM  ASPRMENU 


****•*■#■  ■*■#■■*  ■*••#•*■•#■#•*■  ■***•■*■* 


*  This-program  displays  on  the  screen  the  assignment  proces- 

*  sing  sub-menu 

CLEAR 

PUBLIC  asprcode 
STORE  0  TO  asprcode 

a  4,18  SAY  ' IKMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK, ' 

3  5,18  SAY  ' L9  L9 ' 

a  6,18  SAY  ' HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJ<  ' 

SET  COLOR  TO  W* 

a  5,28  SAY  'ASSIGNMENT  PROCESSING  MENU' 

SET  COLOR  TO  M 

a  7,18  SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 


a  8, 18  SAY  ' :  :  ' 

a  9,18  SAY  ':  1st  LIEUTENANT  ASSIGNMENT  PROCESSING: .. 1  :' 

a  10,18  SAY  ':  2nd  LIEUTENANT  ASSIGNMENT  PROCESS ING: . . 2 

a  11,18  SAY  ':  CAPTAIN  ASSIGNMENT  PROCESSING: . 3  :' 

a  12,18  SAY  ':  MAJOR  ASSIGNMENT  PROCESSING: . 4  :' 

a  13,18  SAY  ':  LIEUT.  COLONEL  ASSIGNMENT  PROCESSING: .. 5  :' 

a  14,18  SAY  ':  COLONEL  ASSIGNMENT  PROCESSING: . 6  :' 

a  15,18  SAY  ':  EXIT  TO  MAIN  MENU: . 7  :' 

a  16, 18  SAY  ' :  :  ' 

a  17, 18  SAY  ' :  :  ' 

a  18,18  SAY  ':  :  ' 


a  19,18  SAY  'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMC ' 
SET  COLOR  TO  W+ 

a  17,29  SAY  'ENTER  YOUR  SELECTION  ->', 

GET  asprcode  PICTURE  '9'  RANGE  1,7 
READ 

SET  COLOR  TO  W 
RETURN 


**■************■#•*■*•#■■#•■* 


PROGRAM  RGMENU 


^ *********** 


*  This  program  displays  on  the  screen  the  report  generator 

*  sub-menu 

CLEAR 

PUBLIC  repcode 
STORE  0  TO  repcode 

3  3,14  SAY  '  I  KMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMK ,  ' 

3  4,14  SAY  ' L9  L9 ' 

3  5,14  SAY  'HJMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMJ < ' 

SET  COLOR  TO  W* 

3  4,30  SAY  ' REPORT  GENERATOR  MENU ' 

SET  COLOR  TO  W 


a  6,14  SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 
a  7,14  SAY  ' :  : 

a  8,14  SAY  ' :  LIST  OF  SCHEDULED  ASSIGNMENTS: . 1: 

a  9,14  SAY  '-.LIST  OF  OFFICERS  OF  A  SPECIFIC  UNIT: . 2: 

a  10,14  SAY  ' : LIST  OF  OFFICERS  IN  ANY  DESIRED  ORDER: . 3: 

a  11,14  SAY  ' : LIST  OF  OFFICERS  OF  A  SPECIFIC  RANK: . 4: 

a  12,14  SAY  '  :  LIST  OF  BATTALION  COMMANDERS: . 5: 

a  13,14  SAY  ' : LIST  OF  OFFICERS  SERVING  OUTSIDE  THE  BRANCH:. 6: 

3  14,14  SAY  ' :  OFFICER ' S  SERVICE  TIME  REPORT: . 7: 

a  15,14  SAY  '  :  OFFICER  '  S  STATUS  REPORT: . 8: 

a  16,14  SAY  ' : EX  IT  TO  MAIN  MENU: . 9: 

3  17,14  SAY  ':  : 

a  18,14  SAY  : 

3  19,14  SAY  ' :  : 

a  20,14  SAY  ' HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM < 
SET  COLOR  TO  W+ 

a  18,27  SAY  'ENTER  YOUR  SELECTION 

GET  repcode  PICTURE  '9'  RANGE  1,9 
READ 

SET  COLOR  TO  W 
RETURN 


mam 


C.  PROGRAMS  SUPPORTING  THE  UPDATE  OPERATIONS 


**************•*•*■■*■■»■■*  PROGRAM  DBUPDATE  ************-*-*•■*■*■*•■*■*-*•* 

*  This  program  controls  the  system's  update  operations 

CLEAR 

STORE  '  '  TO  updtcont 
PUBLIC  updtcode 
DO  WHILE  updtcont  #  'n' 

DO  updtmenu 
DO  CASE 

CASE  updtcode  =  1 
DO  insertor 
CASE  updtcode  =  2 
DO  insertsr 
CASE  updtcode  =  3 
DO  inserthr 
CASE  updtcode  =  4 
DO  modify or 
CASE  updtcode  =  5 
DO  modifyrr 
CASE  updtcode  =  6 
DO  deleteor 
CASE  updtcode  =  7 

STORE  'n'  TO  updtcont 

ENDCASE 

ENDDO 

RETURN 


xrwv  nv  ■  v  mv n 
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*************■*■•*•■*■#••*■*■*  PROGRAM  INSERTOR  *■»*■************•*-**•#■* 


*  This  program  adds  records  to  OFFICER  file,  updates  all  other 

*  affected  database  files,  as  well  as  records  log-data  into 

*  USERLOG  file 

CLEAR 

STORE  'y'  TO  insertcont 

*  open  required  for  the  processing  database  files 
SELECT  1 

USE  historic  INDEX  historic 
SELECT  2 

USE  requests  INDEX  requests 
SELECT  3 

USE  officer  INDEX  officer 

SELECT  4 

USE  userid 

SELECT  5 

USE  user log 

SELECT  6 

USE  serves  INDEX  serves 

STORE  .F.  TO  done 

DO  WHILE  UFPER( insertcont)  =  'Y' 

SELECT  3 
DO  mframe 

3  3,5  SAY  'INSERT  NEW  RECORD  TO  OFFICER  FILE' 

a  4,5  SAY  ' MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM ' 


*  Initialize  memory  variables 


STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  '  '  TO 

STORE  0  TO 

STORE  . F.  TO 


3  20,7  SAY  'ENTER  SERIAL  NUMBER 
READ 


tuni  t 
border 

tname 

tserno 

trank 

tnomyear 

tspec 

tsource 

ndate 

pdate 

tci  ty 

tcounty 

tmarst 

tchi  1  d 

twwi f  e 

GET  tserno 
PICTURE  '99999' 
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*  check  whether  record  exists  into  OFFICER  -file 
FIND  Sttserno 
IF  EOF ( ) 

*  record  does  not  exist 
a  20,7  SAY  ' 

STORE  '  '  TO  answer 

a  12,45  SAY  'DO  YOU  NEED  CODES?  (Y/N)  ==>'  GET  answer 
READ 

IF  UPPER (answer )  =  'Y' 

DO  window3 
ELSE 

3  12,45  CLEAR 
END  IF 

*  read  user's  data  form  the  keyboard 

a  5,5  SAY  'name  : '  GET  tname 

PICTURE  ' AAAAAAAAAAAAAAAAAA 
a  6,5  SAY  'serial  #  :'  GET  tserno  PICTURE  '99999 

a  7,5  SAY  'rank  :'  GET  trank  PICTURE  '99' 

a  8,5  SAY  'nomination  year:'  GET  tnomyear  PICTURE  '99' 

a  9,5  SAY  'specialty  :'  GET  tspec  PICTURE  'A' 

a  10,5  SAY  'source  : '  GET  tsource  PICTURE  ' AAAA 

a  11,5  SAY  'nomination  date:'  GET  ndate 

PICTURE  '99/99/99' 

a  12,5  SAY  'promotion  date  : '  GET  ndate 

PICTURE  '99/99/99' 

a  13,5  SAY  'origin  (city)  :'  GET  tcity  PICTURE  'XXXXXX 

a  14,5  SAY  'origin  (county):'  GET  tcounty 

PICTURE  'XXXXXXXX' 

a  15,5  SAY  'marital  status  :'  GET  tmarst  PICTURE  'A' 

a  16,5  SAY  '#  of  children  :'  GET  tchild  PICTURE  '9' 

a  17,5  SAY  'working  wife?  : '  GET  twwife 

READ 

*  append  new  record  to  OFFICER  file 
APPEND  BLANK 

REPLACE  name  WITH  tname,  serno  WITH  tserno 
REPLACE  rank  WITH  trank,  nomyear  WITH  tnomyear 
REPLACE  specialty  WITH  tspec,  source  WITH  tsource 
REPLACE  asnweight  WITH  0  nomdate  WITH  CTOD (ndate) 
REPLACE  promdate  WITH  CTOD(ndate),  origcity  WITH  tcity 
REPLACE  origcounty  WITH  tcounty,  marstat  WITH  tmarst 
REPLACE  children  WITH  tchild,  workwife  WITH  twwife 
STORE  .T.  TO  done 

*  create  an  etry  into  REQUESTS  file 
SELECT  2 

FIND  fc-tserno 
IF  EOF ( ) 

APPEND  BLANK 

REPLACE  serno  WITH  tserno 
END  IF 
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UNCLASSIFIED 


F/G  5/9 


NL 


*  add  record  to  SERVES  file  if  officer's  source  is  NCOS 
IF  t source  =  'NCOS' 

SELECT  6 
FIND  &tserno 
IF  EOF ( ) 

STORE  '  '  TO  tunit 

a  20,7  SAY  'ENTER  UNIT  NAME  ->  '  GET  tunit 
READ 

APPEND  BLANK 

REPLACE  serno  WITH  tserno , uni tname  WITH  tunit,, 
enroldate  WITH  CTOD(ndate) 

END  IF 
END  IF 

*  add  record  to  HISTORIC  file  (transact,  is  NOMINATION) 
SELECT  1 

STORE  'NOMINATION  '  TO  trans 
SEEK  tserno  +  trans  +  ndate 
IF  EOF ( ) 

STORE  '  '  TO  torder 

a  20,5  SAY  'ENTER  ORDER- >'  GET  torder 
READ 

a  20,5  SAY  ' 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank:,, 

transtype  WITH  trans, transdate  WITH  CTOD (ndate) , , 
orderid  WITH  torder.unit  WITH  tunit 
a  2,45  CLEAR 

*  display  new  record  of  HISTORIC  file 
DO  frame 

a  11,45  SAY  'serial  '  GET  serno 

3  12,45  SAY  'rank:  :'  GET  rank: 

a  13,45  SAY  'transac. : '  GET  transtype 
a  14,45  SAY  'unit  :'  GET  unit 

a  15,45  SAY  'date  :'  GET  transdate 

a  16,45  SAY  'order  :'  GET  orderid 

ELSE 

?  '***  ERROR:  RECORD  EXISTS  IN  HISTORIC  FILE' 

DISPLAY 
DO  delay 
a  22,0  CLEAR 
END  IF 

*  record  exists  into  OFFICER  file  and  cannot  be  added  again 
ELSE 

a  20,6  SAY  '  RECORD  ALREADY  EXISTS 
DO  delay 
END  IF 
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a  20,6  SAY  '  MORE  INSERTIONS'?  (Y/N)  ->' 

SET  CONSOLE  OFF 
WAIT  TO  insertcont 
SET  CONSOLE  ON 
CLEAR 
ENDDO 

*  record  log-data  into  the  USERLOS  file 
IF  done 

SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 
APPEND  BLANK 

REPLACE  username  WITH  D->username,  task  WITH  'INSERTION',, 
progname  WITH  '  INSERTOR' ,  logdate  WITH  DATEO,, 
logtime  WITH  TIMEO 

END  IF 

CLOSE  DATABASES 
RETURN 


g] 


vs 


***■»***■*•»■»•»*•»***■»*■»  PROGRAM  INSERTSR  #******■»**■*******•»*•*■» 

*  This  program  adds  new  records  to  SCHOOLS  -file,  and  updates 

*  the  USERLOG  -file 


CLEAR 


*  open  required  for  the  processing  files 

SELECT  1 

USE  userid 

SELECT  2 

USE  user 1 og 

SELECT  3 

USE  officer  INDEX  officer 
SELECT  4 


USE  schools 

* 

display  a 

window  on  the  screen 

a 

4,20 

SAY 

' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 

a 

5,20 

SAY 

/  m 

/ 

a 

6,20 

SAY 

' :  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

/ 

a 

7,20 

SAY 

r  m 

/ 

a 

8,20 

SAY 

*  a 
• 

r 

a 

9,20 

SAY 

f  a 

/ 

a 

10,20 

SAY 

/  m 

m 

/ 

• 

a 

11,20 

SAY 

/  . 

■ 

/ 

a 

12,20 

SAY 

/  • 

• 

/ 

a 

13,20 

SAY 

/  a 

/ 

a 

14,20 

SAY 

/  • 

• 

/ 

a 

15,20 

SAY 

/  « 

• 

/ 

a 

16,20 

SAY 

/  . 

■ 

/ 

a 

17,20 

SAY 

'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

•  / 

STORE  'y'  TO  insertcont 

STORE  -F.  TO  done 

DO  WHILE  UPPER (insertcont)  =  'Y' 

3  5,24  SAY  'INSERT  NEW  RECORD  TO  SCHOOLS  FILE' 


STORE  ' 
STORE  ' 
STORE  ' 
STORE  ' 
STORE  ' 
STORE  O 
STORE  ' 
a  16,26  SAY 


memory  variables 
'  TO  tserno 

'  TO  tschname 

'  TO  tdegree 

'  TO  tobject 

'  TO  tcountry 

TO  tduration 
'  TO  tgdate 

'ENTER  SERIAL  NUMBER  ->'  GET  tserno 

PICTURE  '99999 


READ 
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*  check  if  record  exists  in  OFFICER  file 
SELECT  3 

FIND  Sitserno 
IF  .NOT.  EOF ( ) 

*  record  exists  in  OFFICER  file 

*  check  if  the  record  to  be  added  exists  in  SCHOOLS  fil 

a  16,26  SAY  '  ENTER  SCHOOL  NAME  GET  tschname 

READ 

SELECT  4 

LOCATE  FOR  serno  =  tserno  .AND.  school  name.  =  tschname 
IF  EOF ( ) 

*  record  does  not  exist  in  SCHOOLS  file 

*  read  user's  data  from  the  keyboard 

a)  16,26  SAY  ' 

a  7,23  SAY  'serial  #  :'  GET  tserno 

3  8,23  SAY  'school— name  :'  GET  tschname 

a  9,23  SAY  'degree  : '  GET  tdegree 

a  10,23  SAY  'object  of  studies:'  GET  tobject 

a  11,23  SAY  'country  : '  GET  tcountry 

a  12,23  SAY  'duration  : '  GET  tduration 

PICTURE  '99' 

a  13,23  SAY  'graduation  date  : '  GET  tgdate 

PICTURE  '99/99/99' 

READ 

*  append  new  record  to  SCHOOLS  file 
APPEND  BLANK 

REPLACE  serno  WITH  tserno,  schoolname  WITH  tschname, 
degree  WITH  tdegree,  object  WITH  tobject,, 
country  WITH  tcountry,  duration  WITH  tduration,, 
graddate  WITH  CTOD (tgdate) 

STORE  .T.  TO  done 

*  record  exist  in  SCHOOLS  file 
ELSE 

a  16,26  SAY  'RECORD  ALREADY  EXISTS 
DO  delay 
END  IF 

*  record  does  not  exist  in  OFFICER  file,  and  we  cannot 

*  add  new  recor  to  SCHOOLS  file 
ELSE 

a  16,21  SAY  'RECORD  DOES  NOT  EXIST  IN  OFFICER  FILE' 

DO  delay 
a  16,21  SAY  ' 

END  IF 

a  16,26  SAY  'MORE  INSERTIONS?  <Y/N)  ->' 

SET  CONSOLE  OFF 
WAIT  TO  insertcont 
SET  CONSOLE  ON 
ENDDO 


*  update  USERLOG  -file 
IF  done 

SELECT  1 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  2 
APPEND  BLANK 

REPLACE  username  WITH  B->username,  task  WITH  'INSERTION',, 
progname  WITH  ' INSERTSR ' , 1 ogdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 

END  IF 

CLOSE  DATABASES 
RETURN 


*******************  PROGRAM  INSERTHR  **■»*******•»***■»**■»**■* 


*  This  program  adds  new  records  to  HISTORIC  file,  and  updates 

*  USERLOG  file 

CLEAR 

*  open  required  for  the  processing  files 
SELECT  1 

USE  serves  INDEX  serves 
SELECT  2 

USE  historic  INDEX  historic 
SELECT  3 

USE  officer  INDEX  officer 

SELECT  4 

USE  user i d 

SELECT  5 

USE  user log 

STORE  '  y'  TO  insertcont 

a  2,17  SAY  'THE  ONLY  LEGAL  TRANSACTIONS  FOR  WHICH  A  RECORD' 

3  3,17  SAY  '  CAN  BE  ADDED  FROM  THIS  PROGRAM  ARE:' 

SET  COLOR  TO  W+ 

3  4,17  SAY  '  .  RETIREMENT' 

a  5,17  SAY  '  .  DEATH' 

SET  COLOR  TO  W 
STORE  .F.  TO  done 
SELECT  2 

DO  WHILE  UPPER (insertcont)  *  'Y' 

*  display  window  on  the  screen 

3  7,18  SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 

a  8,18  SAY  ':  INSERT  RECORDS  INTO  HISTORIC  FILE 

a  9,18  SAY  ':  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

a  10, 18  SAY  ' :  :  ' 

a  11,18  SAY  ' :  :  ' 

a  12, 18  SAY  ' :  ;  ' 

a  13,18  SAY  ' :  :  ' 

a  14, 18  SAY  ' :  :  ' 

a  15, 18  SAY  ' :  :  ' 

a  16, 18  SAY  ' :  :  ' 

a  17, 18  SAY  ' :  :  ' 

a  18,18  SAY  '  HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM<  ' 

*  initialize  memory  varibles 

STORE  .  F.  TO  duplicate 
STORE  '  '  TO  tserno 

STORE  '  '  TO  trank 

STORE  '  '  TO  trans 

STORE  '  '  TO  tdate 

STORE  '  '  TO  torder 

a  17,20  SAY  'ENTER  SERIAL  NUMBER  ->'  GET  tserno 

PICTURE  '99999' 


READ 


*  check  if  record  exists  in  OFFICER  -file 
SELECT  3 
FIND  &tserno 
IF  .NOT.  EOF ( ) 


*  record  exists  in  OFFICER  -file 
SELECT  1 

FIND  &tserno 
SELECT  2 

3  17,20  SAY  '  ENTER  TRANSACTION  GET  trans 

READ 

*  check  whether  transaction  is  legal  or  not 
IF  trans  =  'RETIREMENT  '  .OR.  trans  =  'DEATH 

*  legal  transaction 
a  17,20  SAY  ' 
a  17,20  SAY  '  ENTER  DATE 


->'  GET  tdate 

PICTURE  '99/99/99 


READ 

a  17,20  SAY 


*  check  -for  duplicate  record  in  HISTORIC  file 
SEEK  tserno  +  trans  +  tdate 
IF  EOF ( ) 

*  no  duplicate  record 

*  red  user's  data  from  keyboard 


a  11,20  SAY  'rank 
a  12,20  SAY  'transaction 

a  14,20  SAY  'date 


GET  trank  PICTURE  '99 
GET  trans 

PICTURE  ' AAAAAAAAAAAA ' 
GET  tdate 
PICTURE  '99/99/99' 

GET  torder 


a  15,20  SAY  'order  ! 

READ 

*  append  new  record  to  HISTORIC  file 
APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

transtype  WITH  trans,  unit  WITH  A->uni tname , , 
transdate  WITH  CTOD (tdate) , order i d  WITH  torder 
a  10,20  SAY  'serial  #  : '  GET  serno 

a  13,20  SAY  'unit  :'  GET  unit 

STORE  .T.  TO  done 


*  record  to  be  added  already  exists 
ELSE 

a  17,20  SAY  '***  ERROR:  DUPLICATE  RECORD 
DO  delay 
END  IF 

*  illegal  transaction 
ELSE 

a  17,20  SAY  'ILLEGAL  TRANSACTION 
DO  delay 
END  IF 


102 


» 

»* 


*  officer  does  not  exist  in  OFFICER  file 
ELSE 

a  17,20  SAY  'RECORD  DOES  NOT  EXIST  IN  OFFICER  FILE' 

DO  delay 
a  17,20  SAY  ' 

END  IF 

3  17,20  SAY  'MORE  INSERTIONS?  (Y/N) ' 

SET  CONSOLE  OFF 
WAIT  TO  insertcont 
SET  CONSOLE  ON 
CLEAR 
ENDDO 

*  update  USERLOG  file 
IF  done 

SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 
APPEND  BLANK 

REPLACE  username  WITH  D->username,  task  WITH  'INSERTION',, 
progname  WITH  ' INSERTHR ' ,  logdate  WITH  DATE O , , 
logtime  WITH  TIMEO 

END  IF 

CLOSE  DATABASES 
RETURN 
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*•»■»•»*■»*■****•»***■»*•»* 


PROGRAM  MODIFYOR  *■*■********•*■»**■»•»*■**•*■» 


*  This  program  modifies  records  in  the  OFFICER  -file,  adds  new 

*  records  to  HISTORIC  file  in  case  of  promotion,  and  updates 

*  USERLOG  file 

CLEAR 

*  open  required  for  the  processing  files 
SELECT  1 

USE  serves  INDEX  serves 
SELECT  2 

USE  historic  INDEX  historic 
SELECT  3 

USE  officer  index  officer 

SELECT  4 

USE  user i d 

SELECT  5 

USE  user log 

STORE  .F.  TO  done 

STORE  'y'  TO  modicont 

DO  WHILE  UPPER (modicont)  =  'Y' 

SELECT  3 
DO  mframe 

3  3,6  SAY  '  MODIFY  RECORD  IN  OFFICER  FILE' 

3  4,6  SAY  '  MMMMMMMMMMMMMMMMMMMMMMMMMMMMM ' 

STORE  '  '  TO  tseT-no 

a  20,7  SAY  'ENTER  SERIAL  NUMBER  ->'  GET  tserno 
READ 

*  check  if  record  to  be  modified  exists  in  OFFICER  file 
FIND  Sttserno 
IF  .NOT.  EOF ( ) 

*  record  exists  in  OFFICER  file 

*  initialize  memory  variables 
STORE  0  TO  attrib 

STORE  '  '  TO  trans 

STORE  '  '  TO  tun it 

STORE  '  '  TO  torder 

STORE  name  TO  tname 

STORE  rank  TO  trank 

STORE  promdate  TO  tdate 

STORE  marstat  TO  tmarst 

STORE  children  TO  child 

STORE  workwife  TO  twwife 

*  display  which  attributes  can  be  modified 
a  20,7  SAY  ' 

a  5,8  SAY  '  MODIFIABLE  ATTRIBUTES' 

a  6,8  SAY  '  - ' 

a  7,8  SAY  'name  1  ' 

a  8,8  SAY  'rank  and  promotion  date  2' 

3  9,8  SAY  'marital  and  family  status  3' 
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*  read  user'  s  selection  from  keyboard 

a  20,7  SAY  '  ENTER  YOUR  SELECTION  ->'  GET  attrib, 
PICTURE  '9'  RANGE  1,3 

READ 

*  clear  displayed  attributes 
a  5,3  SAY  ' 

a  6,8  SAY  ' 
a  7,8  SAY  ' 
a  8,8  SAY  ' 
a  9,8  SAY  ' 
a  20,7  SAY  ' 

DO  CASE 

CASE  attrib  =  1 

*  replace  old  name  with  the  new  one 

a  5,5  SAY  'name  : '  GET  tname 

READ 

REPLACE  name  WITH  tname 
CASE  attrib  =  2 

*  replace  old  rank  and  promotin  date 

a  7,5  SAY  'rank  : '  GET  trank, 

PICTURE  '99' 

a  12,5  SAY  'promotion  date  : '  GET  tdate, 

PICTURE  '99/99/99 

READ 

IF  rank  #  trank 

STORE  .T.  TO  addhist 
END  IF 

REPLACE  rank  WITH  trank,  promdate  WITH  tdate 
CASE  attrib  =  3 

*  replace  family  data  with  the  new  ones 
a  16,5  SAY  'marital  status  : '  GET  tmarst 
a  17,5  SAY  '#  of  children  :'  GET  child 

PICTURE  '9' 

a  18,5  SAY  'working  wwife  :'  GET  twwife 
READ 

REPLACE  marstat  WITH  tmarst , chi  1 dren  WITH  child 
workwife  WITH  twwife 

ENDCASE 

STORE  .T.  TO  done 

*  add  new  record  to  HISTORIC  file  in  case  of  promotion 
IF  attrib  =  2 

STORE  'PROMOTION  '  TO  trans 

SELECT  1 

FIND  Jitserno 

STORE  uni tname  TO  tunit 


*  check  -far  duplicate  transaction 
SELECT  2 

SEEK  tserno  +  trans  +  DTOC(tdate) 

IF  EOF ( ) 

*  no  duplicate  transaction 

STORE  '  '  TO  torder 

3  20,5  SAY  'ENTER  ORDER- >'  GET  torder 

READ 

3  20,5  SAY  ' 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank, 

transtype  WITH  trans,  unit  WITH  tunit, 
transdate  WITH  tdate,  orderid  WITH  torder 


*  display  new  record  added 


to  HISTORIC  -file 


DO  frame 
a  11,45  SAY 
a  12,45  SAY 
a  13,45  SAY 
a  14,45  SAY 
a  15,45  SAY 
a  16,45  SAY 


'  serial  #: ' 
'rank  :  ' 
'transact: ' 
'unit  :  ' 
'date  : ' 
'order  : ' 


GET  serno 
GET  rank 
GET  transtype 
GET  un i t 
GET  transdate 
GET  orderid 


*  duplicate  transaction 
ELSE 

a  20,7  SAY  '***  ERROR:  TRANSACTION  EXISTS' 
DO  deleay 
END  IF 
END  IF 


*  display  modified  OFFICER  file  record 


SELECT 
a  3,6 

3 

SAY 

'  UPDATED 

RECORD 

a 

5,5 

SAY 

'  name 

/ 

GET 

name 

a 

6,5 

SAY 

'serial  # 

/ 

GET 

serno 

a 

7,5 

SAY 

'rank 

/ 

GET 

rank 

a 

8,5 

SAY 

'nomination  year 

/ 

GET 

nomyear 

a 

9,5 

SAY 

' special ty 

/ 

GET 

special ty 

a 

10,5 

SAY 

' source 

/ 

GET 

source 

a 

11,5 

SAY 

'nomination  date 

/ 

GET 

nomdate 

a 

12,5 

SAY 

'promotion  date 

* 

GET 

promdate 

a 

13,5 

SAY 

'assign,  weight 

t 

GET 

asnwei ght 

a 

14,5 

SAY 

'origin  (city) 

/ 

GET 

origcity 

a 

15,5 

SAY 

'origin  (county) 

t 

GET 

or i gcounty 

a 

16,5 

SAY 

'marital  status 

/ 

GET 

marstat 

a 

17,5 

SAY 

'#  of  children 

/ 

GET 

chi  1 dren 

a 

18,5 

SAY 

'working  wife? 

t 

GET 

workwi f e 

1 06 


*  record  to  be  modifyed  does  not  exist  in  OFFICER  file 
ELSE 

3  20,5  SAY  'RECORD  DOES  NOT  EXIST  IN  DATABASE' 

DO  delay 
END  IF 

a  20,5  SAY  ' 

a  20,7  SAY  'MORE  MODIFICATIONS?  (Y/N)  ->' 

SET  CONSOLE  OFF 
WAIT  TO  modicont 
SET  CONSOLE  ON 
CLEAR 
ENDDO 


*  update  USERLOG  file 
IF  done 

SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 
APPEND  BLANK 

REPLACE  username  WITH  D->username, , 
task  WITH  'MODIFICATION',, 

progname  WITH  'MODIFYQR' ,  logdate  WITH  DATE ( ) , , 
lagtime  WITH  TIMEO 

END  IF 

CLOSE  DATABASES 
RETURN 


**•»**■»•»**■»*■»■»■»•»•»*■»•»  PROGRAM  MODIFYRR  *#*#■****■*•#*#*+■*■**+#■** 

*  This  program  modifyes  records  in  REQUESTS  -file,  and  updates 

*  USERLOD  file 

CLEAR 

*  open  required  for  the  processing  files 
SELECT  1 

USE  requests  INDEX  requests 

SELECT  2 

USE  userid 

SELECT  3 

USE  user log 

STORE  .F.  TO  done 

STORE  'y'  TO  modicont 

SELECT  1 

DO  WHILE  UPPER (modicont)  =  'Y' 

STORE  '  '  TO  tserno 

*  display  window  an  the  screen 

' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 

f  m  m  t 

«  • 

' :  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  : ' 

/  m  m  f 

/  B  ,  / 

/  .  ,  / 

•  ■ 

'  -  •  / 


'  HMMMMMMMMMMMMMMMMMMMliMMMMMMMMMMMMMMMM  x  ' 
'MODIFY  RECORD  IN  REQUESTS  FILE' 

'ENTER  SERIAL  NUMBER  ->'  GET  tserno 

PICTURE  '99999' 


ecord  to  be  modified  exists  in  REQUESTS  file 

FIND  ?<tserno 
IF  .NOT.  EOF ( ) 

*  record  exists  in  REQUESTS  file 

*  initialize  memory  variables 

STORE  submdate  TO  tdate 

STORE  unitl  TO  tunitl 

STORE  unit2  TO  tunit2 

STORE  unit3  TO  tunit3 


a 

4,22 

SAY 

a 

5,22 

SAY 

a 

6,22 

SAY 

a 

7,22 

SAY 

a 

8,22 

SAY 

a 

9,22 

SAY 

a 

10,22 

SAY 

a 

11,22 

SAY 

a 

12,22 

SAY 

a 

13,22 

SAY 

a 

14,22 

SAY 

a 

15,22 

SAY 

a 

5,26 

SAY 

a 

14,26 

SAY 

READ 

* 

check 

if  i 
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*  read  user 
3  7,26  SAY 

a  8,26  SAY 

a  9,26  SAY 

a  10,26  SAY 

a  11,26  SAY 

READ 


s  data  -from  keyboard 
'serial  #  : 

'submit ion  date  : 

'1st  requested  unit  : 

'2nd  requested  unit  : 

'3rd  requested  unit  : 


'  GET  tserno 
'  GET  tdate 
PICTURE  '99/99/99' 
'  GET  tunitl 
PICTURE  'XXXXXXXX' 
'  GET  tuni t2 
PICTURE  'XXXXXXXX' 
'  GET  tuni t3 
PICTURE  'XXXXXXXX' 


*  replace  changed  -fields 

REPLACE  submdate  WITH  tdate,  unitl  WITH  tunitl,, 
unit2  WITH  tunit2,  unit3  WITH  tunit3 
STORE  .T.  TO  done 

*  record  to  be  modified  does  not  exist  in  REQUESTS  -file 
ELSE 

a  14,24  SAY  'RECORD  DOES  NOT  EXIST  IN  DATABASE' 

DO  delay 
END  IF 

a  14,24  SAY  ' 

a  14,26  SAY  'MORE  MODIFICATIONS?  (Y/N)  ->' 

SET  CONSOLE  OFF 
WAIT  TO  modi  con t 
SET  CONSOLE  ON 
CLEAR 
ENDDO 

*  update  USERLOG  file 
IF  done 

SELECT  2 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  3 
APPEND  BLANK 

REPLACE  username  WITH  B->username , , 
task  WITH  'MODIFICATION',, 

progname  WITH  ' MODIFYRR ' , 1 ogdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 

END  IF 

CLOSE  DATABASES 
RETURN 


109 


*******************  PROGRAM  DELETEOR  ********************* 

*  This  program  deletes  recods  from  OFFICER  file,  and  from  all 

*  other  database  files  whose  field  'serno'  matches  with  the 

*  key  of  the  deleted  from  OFFICERS  file  record. It  also  updates 

*  USERLOB  file 

CLEAR 

*  open  required  for  the  processing  files 
SELECT  1 

USE  serves  INDEX  serves 
SELECT  2 

USE  requests  INDEX  requests 
SELECT  3 
USE  schools 
SELECT  4 

USE  historic  INDEX  historic 
SELECT  5 

USE  officer  INDEX  officer 

STORE  ' y '  TO  deletecont 

STORE  0  TO  cntl,  cnt2,  cnt3,  cnt5 

STORE  .F.  TO  done 

DO  WHILE  UPPER (deletecont)  =  '  Y' 

DO  mframe 

3  3,7  SAY  'DELETE  RECORD  FROM  OFFICER  FILE' 

3  4,7  SAY  ' MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM ' 

STORE  '  '  TO  tserno 

a  20,7  SAY  '  ENTER  SERIAL  NUMBER  ->'  BET  tserno 

PICTURE  '99999' 

*  check  if  record  to  be  deleted  exists  in  OFFICER  file 
READ 

FIND  &tserno 
IF  .NOT.  EOF ( ) 

*  record  exists  in  OFFICER  file 

*  display  record  to  be  deleted 


a 

20,7 

SAY 

/ 

a 

J  | 

SAY 

'  name 

/ 

BET 

name 

a 

6,5 

SAY 

'serial  # 

/ 

GET 

serno 

a 

7 ,5 

SAY 

'rank 

/ 

BET 

rank 

a 

8,5 

SAY 

'nomination  year 

/ 

BET 

nomyear 

a 

9,5 

SAY 

' speci al ty 

/ 

GET 

special ty 

a 

10,5 

SAY 

' source 

f 

GET 

source 

a 

11,5 

SAY 

'nomination  date 

/ 

GET 

nomdate 

a 

12,5 

SAY 

'promotion  date 

/ 

GET 

promdate 

a 

13,5 

SAY 

'origin  (city) 

/ 

GET 

origcity 

a 

14,5 

SAY 

'origin  (county) 

/ 

GET 

origcounty 

a 

15,5 

SAY 

'marital  status 

/ 

GET 

marstat 

•* 


» 

? 

4< 


*  be  sure  that  user  wants  the  record  to  be  deleted 
a  20,7  say  '  DELETE?  (Y/N) 

SET  CONSOLE  OFF 
WAIT  TO  con-firm 
SET  CONSOLE  ON 


*  delete  record  -from  OFFICER  -file 
IF  UPPER  (con-firm)  =  'Y' 

DELETE 

STORE  .T.  TO  done 
STORE  cnt5  +  1  TO  cnt5 


*  delete  record  -from  SERVES  file 
SELECT  1 
FIND  Sftserno 
IF  .NOT.  EOF ( ) 

DELETE 

STORE  cnt 1  +  1  TO  cntl 
END  IF 


*  delete  record  from  REQUESTS  file 
SELECT  2 
FIND  &tserno 
IF  .NOT.  EOF ( ) 

DELETE 

STORE  cnt2  +  1  TO  cnt2 
END  IF 


*  delete  records  from  SCHOOLS  file 
SELECT  3 

LOCATE  FOR  serno  =  tserno 
IF  .NOT.  EOF  < ) 

DELETE  ALL  FOR  serno  =  tserno 
STORE  cnt3  +  1  TO  cnt3 
END  IF 


*  delete  records  from  HISTORIC  file 
SELECT  4 

DELETE  ALL  FOR  serno  =  tserno 
END  IF 


*  record  to  be  deleted  does  not  exist  in  OFFICER  file 
ELSE 

3  20,6  SAY  'RECORD  DOES  NOT  EXIST  IN  DATABASE' 

DO  delay 
a  20,6  SAY  ' 

END  IF 


V  «S V, 


m 


m 


% 


1 


a 


« 


!l*»l 


4 

$ 


« 


K«! 


f 


» 


1 


1 


a 


SI 


3 


a 
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a  20,7  SAY  '  MORE  DELETIONS?  (Y/N) 
SET  CONSOLE  OFF 
WAIT  TO  deletecont 
SET  CONSOLE  ON 
CLEAR 
SELECT  5 
ENDDO 


*  pack  database  -files  which  records  have  been  deleted  from 
IF  cnt5  #  0 

a  10,18  SAY  'DATABASE  FILES  ARE  BEING  PACKED  AND  REINDEXED 
3  11,18  SAY  '  BE  PATIENT,  IT  WILL  TAKE  SOME  TIME' 


3  11,18  SAY 
PACK 
SELECT  1 
IF  cnt 1  #  0 
PACK 
END  IF 
SELECT  2 
IF  cnt2  #  0 
PACK 
END  IF 
SELECT  3 
IF  cnt3  #  0 
PACK 
END  IF 
SELECT  4 
PACK 
END  IF 

CLOSE  DATABASES 


*  update  USERLOG  file 
IF  done 

SELECT  1 
USE  userid 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  2 
USE  user  1 og 
APPEND  BLANK 

REPLACE  username  WITH  A->username,  task 
progname  WITH  ' DELETEOR ' ,  logda 
logtime  WITH  TIMEO 

END  IF 

CLOSE  DATABASES 
RETURN 


'DELETEOR' 


task  WITH  'DELETION',, 
logdate  WITH  DATE ( )  ,  , 


WWW 


WWW 


D.  PROGRAMS  PERFORMING  THE  ASSIGNMENT  PROCESSING 


*■»**•****■»*****•»**•**  PROGRAM  ASSIGNTS  **■»■»■»****■»*****•»*****■» 
*  This  program  controls  the  assignment  processing  operations 
CLEAR 

PUBLIC  asprcode 
DO  asprmenu 

DO  WHILE  asprcode  #  7. 

DO  CASE 

CASE  asprcode  =  1 
DO  assignd 
CASE  asprcode  =  2 
DO  assign02 
CASE  asprcode  =  3 
DO  assignO-3 
CASE  asprcode  =  4 
DO  assign04 
CASE  asprcode  =  5 
DO  assign05 
CASE  asprcode  =  6 
DO  assign06 

ENDCASE 

DO  asprmenu 
ENDDO 


RETURN 


**************•*■*•**-*  PROGRAM  ASSIGNOl 


************■*■*■#•■#■■*■**•■*■■* 


*  This  program  per-forms  the  assignments  of  the  1st  lieutenants 

*  and  updates  the  USERLOG  -file 

*  build  required  temporary  -files 
DO  mkau:<-fl2 

*  display  a  window  in  the  screen 
DO  windowl 

*  assign  1st  lieutenants  to  units  in  which  they  can  serve  by 

*  combining  requests  and  assignment  weights 
3  5,23  SAY  'ASSIGNMENTS  FOR  THE  1st  LIEUTENANTS' 

a  6,23  SAY  '  ARE  BEING  PROCESSED' 

*  open  required  for  the  processing  files 

SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  file5 

SELECT  3 

USE  f i 1 e6 

SELECT  4 

USE  f i 1 e7 

STORE  .T.  TO  ok 

3  8,23  SAY  ' 

a  8,23  SAY  '  FIRST  PASS' 

STORE  '08/15/86'  TO  tdate 

*  get  each  officer  under  assignment  and  determine  the  unit  to 

*  assigned  to  or  defere  it  for  the  second  pass 
DO  WHILE  .NOT.  EOF ( ) 

*  initialize  memory  variables 
STORE  .F.  TO  granted 
STORE  .T.  TO  preference 
STORE  serno  TO  tserno 
STORE  rank  TO  trank 
STORE  source  TO  tsource 
STORE  specialty  TO  tspec 
STORE  asnweight  TO  weight 
STORE  marstat  TO  marst 

STORE  '  '  TO  tuni t , tul , tu2, tu3 

STORE  unitl  TO  tul 

STORE  uni t2  TO  tu2 

STORE  uni t3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 


*  determine  which  of  the  requested  units  will  be  examined 

*  next  (1st,  2nd,  or  3rd) 

DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 

*  check  if  requested  by  the  officer  unit  is  available, 

*  i.e.,  examine  if  there  exists  an  oficer  under 

*  assignment  whose  present  unit  is  the  requested  unit 
SELECT  3 

LOCATE  FOR  speci al ty=tspec  .AND.  source=tsource  .AND., 
unitname=tu  .AND.  serno#tserno  .AND.  .NOT.  DELETED ( ) 
IF  .NOT.  EOF ( ) 

STORE  serno  TO  idno 
SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  -NOT.  DELETED O 
IF  .NOT.  EOF ( ) 

*  someone  else  from  the  requested  unit  is  to  be  moved 

*  check  if  someone  else  has  requested  the  same  unit 

SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOF O  .AND.  .NOT.  done 
IF  .NOT.  DELETED <) 

IF  specialty  =  tspec  .AND.  serno  #  tserno, 
.AND.  source  =  tsource 

IF  unitl=tu  .OR.  unit2=tu  .OR.  unit3=tu 
STORE  .T.  TO  done 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted,  record  is  marked  for  deletion 
STORE  tu  TO  tunit 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 


CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  pre-ference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference) ) 

IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  speci al ty=tspec , 
.AND.  source  =  tsource 
IF  uni tl=tu.0R.unit2=tu.0R. unit3=tu 
IF  asnweight  >  weight 

STORE  .F.  TO  pre-ference 
ELSE 

IF  asnweight  =  weight 

IF  marst  =  'S'  .AND., 
marstat  #  'S' 

STORE  .  F.  TO  pre-ference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 


IF  pre-ference 

*  officer  requested  this  unit  has  the  preferen- 

*  ce,  unit  is  granted,  record  is  marked  for 

*  deletion 
STORE  tu  TO  tunit 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASr  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
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SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  -for  the  next  pass 

STORE  TO  tun it 

STORE  3  TO  tweight 
STORE  .F.  TO  ok 
END  IF 

*  build  record  in  the  -file  containing  the  assignments 
SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 

SELECT  4 
SKIP 
ENDDO 

*  second  pass 
IF  .NOT.  ok 

*  unresolved  assignments  exist 

a  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 

SELECT  1 

*  build  temporary  file  containing  unresolved  assignments 

COPY  TO  f i 1 e8  FOR  unitname  =  .AND.  rank  =  '02' 

SELECT  5 

USE  f i 1 e8 

STORE  .F.  TO  deletion 

*  get  one  record  at  a  time  and  try  to  satify  the  request 
DO  WHILE  .NOT.  EOF ( ) 

*  initialize  memory  variables 
STORE  '  '  TO  tsource 

STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  source  TO  tsource 
STORE  '  '  TO  tunit 

1  17 


SELECT  2 

*  -find  requested  units  and  store  them  into  memvars 
LOCATE  FOR  serno  =  tserno 

STORE  uni t 1  TO  tul 
STORE  uni t2  TO  tu2 
STORE  uni t3  TO  tu3 
STORE  .F.  TO  -found 
STORE  .T.  TO  requested 

SO  TOP 

*  -find  available  units 

DO  WHILE  .NOT.  EOF  ( )  .AND.  .NOT.  -found 
IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  specialty  =  tspec, 
.AND.  source  =  tsource 
STORE  serno  TO  idno 
*  unit  available 
DO  CASE 

CASE  unit name  =  tul 

*  unit  is  the  1st  requested 

STORE  .  T.  TO  -found 
STORE  unitname  TO  tun it 
STORE  O  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  1  TO  tweight 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  found 
STORE  unitname  TO  tunit 
STORE  2  TO  tweight 
OTHERWISE 

*  found  available  unit  is  not  requested 

STORE  .F.  TO  requested 

ENDCASE 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  found 

*  unit  available  is  one  of  the  requested  units, 

*  record  for  deletion,  so  that  it  will  no 

*  encountered  again 
LOCATE  FOR  serno  =  idno 

DELETE 

STORE  .T.  TO  resolved 


ELSE 

IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  for  deletion 

LOCATE  FOR  serno  =  idno 
STORE  unitname  TO  tun it 
STORE  3  TO  tweight 
STORE  .T.  TO  resolved 
DELETE 
ELSE 

5)  22,18  SAY  'OFFICER  CANNOT  BE  ASS  I GNED '  GET  tserno 
END  IF 
END  IF 
SELECT  1 
FIND  Jttserno 

IF  resolved 

*  update  record  in  assigned  file 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 
ELSE 

*  No  available  unit  found,  delete  created  in  assigned 

*  file  record.  Officer  will  remain  in  the  same  unit 
DELETE 

STORE  .T.  TO  deletion 
END  IF 
SELECT  5 

STORE  .F.  TO  resolved 
SKIP 
ENDDO 
END  IF 

IF  deletion 
SELECT  1 
PACK 
END  IF 

*  update  USERLOG  file 
SELECT  6 
USE  userid 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  7 
USE  user  log 
APPEND  BLANK 

REPLACE  username  WITH  F— >username,  task  WITH  'ASSIGNMENTS',, 
progname  WITH  ' ASSIGNOl ' , 1 ogdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  file5.dbf 
DELETE  FILE  file6.dbf 
DELETE  FILE  fileT.dbf 
DELETE  FILE  file8.dbf 
RETURN 


**■»*******•»■»■»****•»*  PROGRAM  MKAUXFL2 


***■****•*■*■*-*-*•■*■-*•*■-* 


*  This  program  creates  the  temporary  -files  required  for  the 

*  for  the  assignment  processing  of  the  1st  lieutenants 

DO  window 
SELECT  1 
USE  serves 
SELECT  2 
USE  officer 
SELECT  3 
USE  requests 
SELECT  2 

a  10,30  SAY  ' FILE3  . . ' 

COPY  TO  f i 1 e3  FOR  rank  =  '02' 

3  10,45  SAY  'READY' 

SELECT  1 

a  1 1 ,30  SAY  ' FILE4 . ' 

COPY  TO  f i 1 e4  FOR  enrol  date  <=  CTOD (' 07/31 /86 ' )  -  1065 
a  11,45  SAY  'READY' 

SELECT  5 
USE  f i 1 e4 
SELECT  6 
USE  f i 1 e3 

a  12,30  SAY  'FILES . ' 

JOIN  WITH  E  TO  fileS  FOR  serno  =  E->serno  , 

FIELDS  serno, rank , source, spec i al ty ,asnwei ght , mars t  at  ,  , 
children,  unitname,  enrol  date 
a  12,45  SAY  'READY' 

SELECT  3 
USE  requests 
SELECT  7 
USE  f i 1 e5 

a  13,30  SAY  ' FILE6 . ' 

JOIN  WITH  C  TO  f i 1 e6  FOR  serno  =  C— >serno  , 

FIELDS  serno , r ank , source , specialty, asnwei ght , mar  st at , , 
chi  1  dr en , uni tname , enrol  date , uni 1 1 , uni 1 2, uni t3, submdate 
a  13,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  fileS.dbf 
USE  f i 1 e6 
COPY  TO  fileS 

3  14,30  SAY  ' FILET . ' 

COPY  TO  fileT 
3  14,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  file3.dbf 
DELETE  FILE  file4.dbf 
RETURN 


1  20 


********•*•*■#••#■■*■•*•**■•*■*■*  PROGRAM  ASSIGN02  ******•*■*■*•#•■#•■#■■*■*■**•■*•#■•*■*•* 

*  This  program  performs  the  assignments  o-f  the  2d  lieutenants, 

*  and  updates  USERLOG  -file 

*  build  required  temporary  files 
DO  mkauxf 1 1 

*  open  required  for  the  processing  files 
SELECT  1 

USE  assigned  INDEX  assigned 
SELECT  2 
USE  officer 

*  display  window  on  the  screen 
DO  windowl 

*  Assign  officers  recently  graduated  from  MA. 

*  All  of  them  are  assigned  to  the  AS  for  training 

3  5,20  SAY  'ASSIGNMENTS  FOR  THE  NEW  2d  LIEUTENANTS' 
a  6,20  SAY  'WHO  HAVE  RECENTLY  GRADUATED  FROM  THE  MA ' 
a  7,20  SAY  '  ARE  BEING  PROCESSED' 

SELECT  2 

LOCATE  FOR  rank  =  '01'  .AND.  source  =  'MA', 

.AND.  YEAR  (nomdate)  =  YEAR  (DATE  <>> 

DO  WHILE  .NOT.  EOF ( ) 

SELECT  1 
APPEND  BLANK 

REPLACE  serno  WITH  B— >serno,  rank  WITH  B->rank, 

source  WITH  B->source,  specialty  WITH  B->specialty 
REPLACE  unitname  WITH  'AS',  asgndate  WITH  CTOD (' 09/01 /86 , 
asnweight  WITH  0 

SELECT  2 
CONTINUE 
ENDDO 

CLOSE  DATABASES 

*  clear  messages  inside  the  window 
a  5,20  SAY  ' 

a  6,20  SAY  ' 
a  7,20  SAY  ' 

*  assign  2nd  lieutenants  completing  their 

*  training  in  the  Artillery  School  to  ARTC 

a  5,23  SAY  'ASSIGNMENTS  FOR  THE  2d  LIEUTENANTS' 
a  6,23  SAY  '  '  GRADUATING  FROM  THE  AS' 

a  7,23  SAY  '  ARE  BEING  PROCESSED' 


*  open  required  -for  the  processing  -files 
SELECT  1 

USE  assigned  INDEX  assigned 
SELECT  6 

USE  serves  INDEX  serves 

LOCATE  FOR  unitname  =  'AS'  .AND.  duty  =  'TRAINEE' 

DO  WHILE  .NOT.  EOF ( ) 

SELECT  1 
APPEND  BLANK 

REPLACE  serno  WITH  F->serno,  unitname  WITH  ' ARTC ' , 

rank  WITH  '01',  asgndate  WITH  CTOD (' 08/01 /86 ' ) 
REPLACE  source  WITH  'MA',  specialty  WITH  'C', 
asnweight  WITH  0 

SELECT  6 
CONTINUE 
ENDDO 

8  5,20  SAY  ' 

8  6,20  SAY  ' 

a  7,20  SAY  ' 

*  assign  2nd  lieutenants  serving  in  the  ARTC 

*  to  the  combat  units  in  which  they ‘can  serve 

3  5,23  SAY  ' ASS I SNMENTS  FOR  THE  2d  LIEUTENANTS' 
a  6,23  SAY  '  WITH  ORIGIN  MA  SERVING  IN  ARTC' 

a  7,23  SAY  '  ARE  BEING  PROCESSED' 

a  8,23  SAY  '  FIRST  PASS' 

*  open  required  files 
SELECT  3 

USE  requests  INDEX  requests 
SELECT  4 

USE  unit  INDEX  unit 
SELECT  5 

USE  unitorg  INDEX  uni  tor g 

SELECT  8 

USE  f i 1 e2 

STORE  .T.  TO  ok 

DO  WHILE  .NOT.  EOF ( ) 

STORE  '  '  TO  tsource 

STORE  serno  TO  tserno 

STORE  rank  TO  trank 


*  -find  what  units  the  officer  has  requested 
SELECT  3 

FIND  S<tserno 
STORE  uni t 1  TO  tul 
STORE  unit2  TO  tu2 
STORE  uni t3  TO  tu3 

*  -find  requested  units  in  the  unit  file,  and  store  the 

*  fields  echelon  and  readines  into  temporary  memvars 
SELECT  4 

FIND  &tul 

STORE  echelon  TO  tel 
STORE  readiness  TO  trl 
FIND  &tu2 

STORE  echelon  TO  te2 
STORE  readiness  TO  tr2 
FIND  &tu3 

STORE  echelon  TO  te3 
STORE  readiness  TO  tr3 
SELECT  5 

LOCATE  FOR  echelon  =  tel  .AND.  readiness  =  trl 
STORE  mac 01  TO  ;<  1 

LOCATE  FOR  echelon  =  te2  .AND.  readiness  =  tr2 
STORE  mac 01  TO  :<2 

LOCATE  FOR  echelon  =  te3  .AND.  readiness  =  tr3 
STORE  mac  01  TO  :<3 

*  check  if  the  officer  can  serve  in  the  requested  units 

*  according  to  the  unit  organization 

IF  (  (:<  1  #  0)  .AND.  (:<2  #  0)  .AND.  CX3  #  0)) 

*  requests  are  valid,  check  if  1st  requested  unit  is 

*  available 
SELECT  1 

LOCATE  FOR  rank  =  trank  .AND.  unitname  =  tul 
IF  EOF ( ) 

*  requested  unit  is  available,  unit  is  granted 

STORE  tul  TO  tun it 
STORE  0  TO  weight 


*  1st  requested  unit  is  not  available 

*  check  if  2nd  requested  unit  is  available 

LOCATE  FOR  rank  =  trank  .AND.  unitname  =  tu2 
IF  EOF  ( ) 

*  requested  unit  is  available,  unit  is  granted 
STORE  tu2  TO  tunit 
STORE  1  TO  weight 
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ELSE 

*  2nd  requested  unit  is  not  available 

*  check  i-f  3rd  requested  unit  is  available 

LOCATE  FOR  rank  =  trank  .AND.  unitname  =  tu3 
IF  EOF ( ) 

*  requested  unit  is  available,  unit  is  granted 
STORE  tu3  TO  tunit 
STORE  2  TO  weight 


ELSE 

*  none  of  the  requested  units  is  available 

*  assignment  will  be  resolved  in  the  2nd  pass 

STORE  '*'  TO  tunit 
STORE  3  TO  weight 
STORE  .F.  TO  ok 
END  IF 
END  IF 
END  IF 


*  build  assignments  record  -for  the  officer 
APPEND  BLANK 

REPLACE  serno  WITH  tserno,  unitname  WITH  tunit, 

rank  WITH  trank,  asgndate  WITH  CTOD (' 08/ 15/86 ' ) 
REPLACE  asnweight  WITH  weight,  source  WITH  tsource  , 
specialty  WITH  tspec 


END  IF 
SELECT  8 
SKIP 
ENDDO 


*  i-f  there  are  deferred  asignments  -from  the  first  pass,  try  to 

*  resolve  them 
IF  .NOT.  ok 

SELECT  1 

8  8,23  SAY  '  SECOND  PASS' 


*  build  file  containing  the  deferred  assignments 
COPY  TO  notokl2  FOR  unitname  =  '*'  .AND.  rank  =  '01', 
-AND.  source  =  'MA' 

SELECT  9 

USE  notokl 2 

DO  WHILE  .NOT.  EOF < ) 

STORE  serno  TO  tserno 
STORE  rank  TO  trank 
SELECT  4 
GO  TOP 

STORE  .F.  TO  stop 


,y\>v 


*  -find  units  not  requested  by  any  officer  in  which  a  2nd 

*  lieutenant  can  serve  and  assign  non-assigned  o-f fleers 

*  to  them 

DO  WHILE  .NOT.  EOF ( )  .AND.  .NOT.  stop 
IF  category  =  'CU' 

STORE  '  '  TO  tel 

STORE  '  '  TO  trl 

STORE  '  '  TO  tunit 

STORE  unitname  TO  tunit 
STORE  echelon  TO  tel 
STORE  readiness  TO  trl 
SELECT  5 
SEEK  tel  +  trl 
IF  .NOT.  EOF ( ) 

IF  macOl  #  0 
SELECT  1 

LOCATE  FOR  rank=trank  .AND.  unitname=  tunit 
IF  EOF ( ) 

FIND  &tserno 

REPLACE  unitname  WITH  tunit 
STORE  .T.  TO  stop 
END  IF 
END  IF 
END  IF 
END  IF 
SELECT  4 
SKIP 
ENDDO 

IF  .NOT.  stop 

3  22,18  SAY  '***  INVALID  REQUEST  OR  INCORRECT  FILE' 
END  IF 
SELECT  9 
SKIP 
ENDDO 
END  IF 

CLOSE  DATABASES 

*  delete  non-required  temporary  files 
DELETE  FILE  filel.dbf 

DELETE  FILE  file2.dbf 
DELETE  FILE  notokl2.dbf 

*  assigne  2nd  lieutenants  whose  source  is  NCOS 

*  to  the  units  in  which  they  can  serve  by  combining 

*  requests  and  assignment  weighs 

3  5,20  SAY  ' 
a  6,20  SAY  ' 
a  7,20  SAY  ' 
a  8,20  SAY  ' 
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a  5,23  SAY  ' ASS I SNMENTS  FOR  THE  2d  LIEUTENANTS' 
a  6,23  SAY  '  WHOSE  SOURCE  IS  NCOS' 

a  7,23  SAY  '  ARE  BEING  PROCESSED' 

*  open  required  -for  the  processing  -files 
SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  -files 

SELECT  3 

USE  -f  i  1  e6 

SELECT  4 

USE  -file? 

STORE  .T.  TO  ok 
a  8,23  SAY  ' 

a  8,23  SAY  '  FIRST  PASS' 

STORE  '08/15/86'  TO  tdate 

*  get  each  o-f-fi cer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  defere  it  -for  the  second  pass 
DO  WHILE  .NOT.  EOF < ) 

*  initialize  temporary  memvars 

STORE  .F.  TO  granted 
STORE  .T.  TO  preference 
STORE  serno  TO  tserno 
STORE  rank  *  TO  trank 
STORE  source  TO  tsource 
STORE  specialty  TO  tspec 
STORE  asnweight  TO  weight 
STORE  marstat  TO  marst 

STORE  '  '  TO  tun it , tul , tu2, tu3 

STORE  unitl  TO  tul 

STORE  uni t2  TO  tu2 

STORE  uni t3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 

*  determine  which  o-f  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 

DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 
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*  check  if  requested  by  the  officer  unit  is  available, 

*  i.e.,  examine  if  there  exists  an  officer  under 

*  assignment  whose  present  unit  is  the  requested  unit 
SELECT  3 

LOCATE  FOR  specialty  =  tspec  .AND.  unitname  =  tu, 

•AND.  serno  #  tserno  .AND.  .NOT.  DELETED ( ) 

IF  .NOT.  EOF ( ) 

STORE  serno  TO  idno 
SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED ( ) 

IF  .NOT.  EOF ( ) 

*  someone  else  from  the  requested  unit  is  to  be  moved 

*  check  if  someone  else  has  requested  the  same  unit 

SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOF < )  .AND.  .NOT.  done 
IF  .NOT.  DELETED () 

IF  specialty  =  tspec  .AND.  serno  #  tserno 
IF  unitl=tu  .OR.  unit2=tu  .OR.  unit3=tu 
STORE  .T.  TO  done 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted,  record  is  marked  for  deletion 

STORE  tu  TO  tun  it 
DO  CASE 

CASE  loopcnt  =  1 

STORE  O  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  -  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 


ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  preference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference) ) 

IF  .NOT.  DELETED (> 

IF  serno  #  tserno  .AND.  specialty  =  tspec 
IF  unitl=tu  .OR.  uni t2=tu, 

•OR.  unit3=tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 
IF  marst  =  'S', 

.AND.  mar st at  #  'S' 

STORE  .F.  TO  preference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the 

*  preference,  unit  is  granted,  record 

*  is  marked  for  deletion 
STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 


IF  . NOT .  r eso 1 vsd 

*  unresolved  assignment,  de-fere  it  -for  the  next  pass 

STORE  '*'  TO  tun it 
STORE  3  TO  tweight 
STORE  .F.  TO  ok 
END  IF 

*  build  record  in  the  -file  containing  the  assignments 
SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 

SELECT  4 
SKIP 
ENDDO 

*  second  pass 
IF  .NOT.  ok 

*  unresolved  assignments  exist 

a  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 

SELECT  1 

*  build  temporary  -file  containing  unresolved  assignments 
COPY  TO  -f  i  1  e8  FOR  unitname  =  '*'  .AND.  source  =  'NCOS' 
SELECT  5 

USE  -f  i  1  e8 

STORE  .F.  TO  deletion 

*  get  one  record  at  a  time  and  try  to  sati-fy  request 
DO  WHILE  .NOT.  EOF ( ) 

STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  '  '  TO  tunit 

SELECT  2 

*  find  requested  units  and  store  them  into  memvar s 

LOCATE  FOR  serno  =  tserno 

STORE  unitl  TO  tul 

STORE  uni t2  TO  tu2 

STORE  uni t3  TO  tu3 

STORE  .F.  TO  found 

STORE  .T.  TO  requested 

GO  TOP 
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*  -find  available  units 

1  .’I 

DO  WHILE  .NOT.  EOF  ( )  .AND.  .NOT.  -found 

IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  specialty  =  tspec 

>,4 

STORE  serno  TO  idno 

*  unit  available 

‘V 

DO  CASE 

m. 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  found 

m 

STORE  unitname  TO  tunit 

STORE  0  TO  tweight 

CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

s  M 

* 

STORE  .T.  TO  found 

M 

STORE  unitname  TO  tunit 

ii( 

STORE  1  TO  tweight 

<3* 

CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  found 

!‘!*j 

STORE  unitname  TO  tunit 

STORE  2  TO  tweight 

lAl 

OTHERWISE 

gv 

*  found  available  unit  is  not  requested 

£n 

STORE  .F.  TO  requested 

v> 

* 

ENDCASE 

5! 

) 

L 

END  IF 

END  IF 

m 

SKIP 

V 

> 

N 

\ 

ENDDO 

i 

IF  found 

■?; 

s 

1 

*  unit  available  is  one  of  the  requested,  mark  record 

*  for  deletion,  so  that  it  will  not  be  encountered  again 

V; 

LOCATE  FOR  serno  =  idno 

ft 

1 

DELETE 

$ 

N 

STORE  .T.  TO  resolved 

ft 

ELSE 

* 

IF  .NOT.  requested 

'if! 

A 

*  available  unit  is  not  requested 

*  mark  record  for  deletion 

LOCATE  FOR  serno  =  idno 

STORE  unitname  TO  tunit 

STORE  3  TO  tweight 

PH 

STORE  .T.  TO  resolved 

DELETE 

Ito 

ELSE 

;& 

a  22,18  SAY  'OFFICER  CANNOT  BE  ASSIGNED'SET  tserno 

i 

i 

1  Or. 

iftr. 

END  IF 

- 

C 

END  IF 

i 
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1 
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SELECT  1 
FIND  &tserno 

IF  resolved 

*  update  record  in  assigned  -file 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweigh 
ELSE 

*  no  available  unit  -found,  delete  created  in  assigned 

*  -file  record  o-f-ficer  will  remain  in  the  same  unit 

DELETE 

STORE  . T.  TO  deletion 
END  IF 
SELECT  5 

STORE  .F.  TO  resolved 
SKIP 
ENDDO 
END  IF 

IF  deletion 
SELECT  1 
PACK 
END  IF 

*  uodate  USERLOG  file 
SELECT  6 
USE  userid 

LOCATE  FOR  password  =  UPPER <psw) 

SELECT  7 
USE  user log 
APPEND  BLANK 

REPLACE  username  WITH  F->username,  task  WITH  'ASSIGNMENTS', 
progname  WITH  ' ASSIGN02 ' ,  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  file5. dbf 
DELETE  FILE  file6.dbf 
DELETE  FILE  file?. dbf 
DELETE  FILE  file8.dbf 
RETURN 


**#•»*■»*■*•»■**•*■»•»*•»•»•»•»  PROGRAM  MKAUXFL1  ************************ 

*  This  program  creates  the  temporary  files  required  for  the 

*  assignment  processing  of  the  2nd  lieutenants 

DO  window 
SELECT  1 
USE  serves 
SELECT  2 
USE  officer 
SELECT  3 
USE  requests 
SELECT  1 

3  8,30  SAY  ' FILE1  .... _ ' 

COPY  TO  filel  FOR  unitname  =  ' ARTC '  .AND.  duty  =  'P/CDR' 

3  8,45  SAY  'READY' 

SELECT  4 
USE  filel 

S  9,30  SAY  ' FILE2 . ' 

JOIN  WITH  B  TO  file2  FOR  serno=B— >serno  .AND.  B- >source= ' MA ' , 
FIELDS  serno,  rank,  source,  specialty,  unitname 
a  9,45  SAY  'READY' 

SELECT  2 

a  10,30  SAY  'FILE3 . ' 

COPY  TO  f i 1 e3  FOR  rank  =  '01'  .AND.  source  =  'NCOS' 
a  10,45  SAY  'READY' 

SELECT  1 

3  11,30  SAY  ' FILE4 . ' 

COPY  TO  f i 1 e4  FOR  enrol  date  <=  CTOD (' 07/31 /86 ' >  -  1065 
a  11,45  SAY  'READY' 

SELECT  5 
USE  f i 1 e4 
SELECT  6 
USE  f i 1 e3 

a  12,30  SAY  'FILE5 . ' 

JOIN  WITH  E  TO  file5  FOR  serno  =  E->serno  , 

FIELDS  serno , rank , source , spec i al ty , asnwei ght ,marstat , , 
children,  unitname,  enraldate 
a  12,45  SAY  'READY' 

SELECT  3 
USE  requests 
SELECT  7 
USE  file5 

a  13,30  SAY  ' FILE6 . ' 

JOIN  WITH  C  TO  f i 1 e6  FOR  serno  =  C->serno  , 

FIELDS  serno, rank , source , specialty, asnwei ght , marstat , , 
chi  1 dren ,uni tname , enrol  date , uni 1 1 , uni t2 , uni t3 , submdate 
3  13,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  file5.dbf 
USE  f i 1 e6 


COPY  TO  -file5 
3  14,30  SAY  'FILET  .  . 
COPY  TO  file? 

3  14,45  SAY  'READY' 
CLOSE  DATABASES 
DELETE  FILE  file3.db-f 
DELETE  FILE  file4.db-f 
RETURN 


*******************  PROGRAM  ASSIGN03  ************-*****-**** 

*  This  performs  the  assignments  o-f  the  captains,  and  updates 

*  USERLOG  -file 

*  build  required  temporary  -files 
DO  mkau:<-f  1 3 

*  display  window  on  the  screen 
DO  windowl 

*  assign  captains  to  units  in  which  they  can  serve 

*  by  combining  requests  and  assignment  weights 

a  5,23  SAY  '  ASSIGNMENTS  FOR  THE  CAPTAINS' 

3  6,23  SAY  '  ARE  BEING  PROCESSED' 

*  open  required  for  the  processing  files 

SELECT  1 

USE  assigned  INDEX  assigned 
SELECT  2 
USE  fileS 

aikE?i1i6 

SELECT  4 
USE  file? 

STORE  .T.  TO  ok 
3  8,23  SAY  ' 

a  8,23  SAY  '  FIRST  PASS' 

STORE  '08/15/86'  TO  tdate 

*  get  each  officer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  defere  it  for  the  second  pass 
DO  WHILE  .NOT.  EOF ( ) 

*  initialize  memvars 
STORE  .F.  TO  granted 
STORE  . T.  TO  preference 
STORE  serno  TO  tserno 
STORE  rank  TO  trank 
STORE  source  TO  t source 
STORE  specialty  TO  tspec 
STORE  asnweight  TO  weight 
STORE  marstat  TO  marst 

STORE  '  '  TO  tunit ,tul ,tu2, tu3 

STORE  uni t 1  TO  tul 

STORE  unit2  TO  tu2 

STORE  unit3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 


*  determine  which  of  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 

DO  WHILE  .NOT.  resolved  .AND.  loapcnt  <  4 

IF  loapcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 

*  check  i -f  requested  by  the  officer  unit  is  available 
SELECT  3 

LOCATE  FOR  speci al ty=tspec  .AND.  source=tsour ce  .AND., 
unitname=tu  .AND.  serno#tserno  .AND.  .NOT.  DELETED ( 
IF  .NOT.  EOF ( ) 

STORE  serno  TO  idno 
SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED  ( ) 

IF  .NOT.  EOF ( ) 

*  requested  unit  avai 1 abl e , check  if  someone  else 

*  requests  the  same  unit 
SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOF ( )  .AND.  .NOT.  done 
IF  .NOT.  DELETED () 

IF  specialty  =  tspec  .AND.  serno  #  tserno, 
.AND.  source  =  tsource 

IF  unitl=tu  .OR.  unit2=tu  .OR.  unit3=tu 
STORE  .T.  TO  done 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted,  record  is  marked 
STORE  tu  TO  tunit 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loapcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 


ENDCASE 


STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  wham  will  be  given 

*  the  pre-ference  to 

DO  WHILE  ((.NOT.  EOF ( > )  .AND.  (preference) ) 

IF  .NOT.  DELETED () 

IF  serno  #  tserno  .AND.  special ty=tspec, 
.AND.  source  =  tsource 
IF  unitl  =  tu  .OR.  unit2  =  tu, 

.OR.  unit 3  =  tu 
IF  asnweight  >  weight 

STORE  .F.  TO  pre-ference 
ELSE 

IF  asnweight  =  weight 
IF  marst  =  'S', 

.AND.  marst at  #  'S' 

STORE  .F.  TO  pre-ference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the 

*  preference,  unit  is  granted,  record 

*  is  marked  for  deletion 
STORE  tu  TO  tunit 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  . T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 


t 


SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

1  *  unresolved  assignment,  de-fere  it  -for  the  next  pass 

STORE  '*'  TO  tun it 
STORE  3  TO  tweight 
STORE  .F.  TO  ok 
END  IF 


*  build  record  in  the  -file  containing  the  assignments 
SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 

SELECT  4 
SKIP 
ENDDO 

*  second  pass 
IF  -NOT.  ok 

*  unresolved  assignments  exist 

3  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 
STORE  .F.  TO  deletion 
SELECT  1 

*  build  temporary  -file  containing  unresolved  assignments 
COPY  TO  -f  i  1  e8  FOR  unitname  =  '*'  .AND.  rank  =  '03' 

SELECT  5 

USE  -f  i  1  e8 

*  get  one  record  at  a  time  and  try  to  satify  request 
DO  WHILE  .NOT.  EOF ( ) 

*  initialize  memvars 
STORE  '  '  TO  tsource 

STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  source  TO  tsource 
STORE  '  '  TO  tunit 
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SELECT  2 

*  -find  requested  units  and  stare  them  into  memvars 

LOCATE  FOR  serno  =  tserno 

STORE  uni t 1  TO  tul 

STORE  uni t2  TO  tu2 

STORE  uni t3  TO  tu3 

STORE  .F.  TO  -found 

STORE  .T.  TO  requested 

GO  TOP 


*  find  available  units 

DO  WHILE  -NOT.  EOF ( )  .AND.  .NOT.  found 
IF  .NOT.  DELETED <) 

IF  serno  #  tserno  .AND.  specialty  =  tspec, 
.AND.  source  =  tsource 
STORE  serno  TO  idno 
*  unit  available 
DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  found 
STORE  unitname  TO  tunit 
STORE  0  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  .  T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  1  TO  tweight 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  found 
STORE  unitname  TO  tunit 
STORE  2  TO  tweight 
OTHERWISE 

*  found  available  unit  is  not  reques 


ENDCASE 
END  IF 
END  IF 
SKIP 
ENDDO 


STORE  .F.  TO  requested 


unit  is  not  requested 


IF  found 

*  unit  available  is  one  of  the  requested  units,  mark 

*  record  for  deletion,  so  that  it  will  not  be 

*  encountered  again 
LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
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ELSE 

IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  -for  deletion 

LOCATE  FOR  serno  =  idno 
STORE  unitname  TO  tunit 
STORE  3  TO  tweight 
STORE  .T.  TO  resolved 
DELETE 
ELSE 

3  22,18  SAY  ' OFFICER  CANNOT  BE  ASSIGNED' GET  tserno 
END  IF 
END  IF 


SELECT  1 
FIND  &tserno 
IF  resolved 

*  update  record  in  assigned  -file 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 


ELSE 

*  no  available  unit  -found,  delete  created  in  assigned 

*  -file  record  o-f-fi cer,  will  remain  in  the  same  unit 
DELETE 

STORE  .T.  TO  deletion 
END  IF 
SELECT  5 

STORE  .F.  TO  resolved 
SKIP 
ENDDO 
END  IF 

IF  deletion 
SELECT  1 
PACK 
END  IF 

*  update  USERLOG  -file 
SELECT  6 
USE  userid 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  7 
USE  user log 
APPEND  BLANK 

REPLACE  username  WITH  F->username,  task  WITH  'ASSIGNMENTS',, 
progname  WITH  ' ASS IGN03 ' ,  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  file5.dbf 
DELETE  FILE  -file6.dbf 
DELETE  FILE  file?.db-f 
DELETE  FILE  file8.dbf 


RETURN 
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***■»**■»****•****•»#**  PROGRAM  MKAUXFL3 


* 

* 


This  program  creates  auxiliary  files  required  for 
assignment  processing  of  the  captains 


the 


00  window 
SELECT  1 
USE  serves 
SELECT  2 
USE  officer 
SELECT  3 
USE  requests 
SELECT  2 

a  10,30  SAY  ' F I LE3 . ' 

COPY  TO  f i 1 e3  FOR  rank  =  '03' 
a  10,45  SAY  'READY' 

SELECT  1 

a  11,30  SAY  ' FILE4 . ' 

COPY  TO  f i 1 e4  FOR  enroldate  <=  CTOD (' 07/31 /86 ' >  -  1065 
a  11,45  SAY  'READY' 

SELECT  5 
USE  f i 1 e4 
SELECT  6 
USE  f i 1 e3 

3  12,30  SAY  ' F I LE5 . ' 

JOIN  WITH  E  TO  f i 1 e5  FOR  serno  =  E->serno  , 

FIELDS  serno, rank , source, spec i al ty , asnwei ght ,marstat , , 
chi ldren , ' uni tname ,  enroldate 
3  12,45  SAY  'READY' 

SELECT  7 
USE  file5 

3  13,30  SAY  ' FILE6 . ' 

JOIN  WITH  C  TO  file6  FOR  serno  =  C->serno  , 

FIELDS  serno, rank , source, spec l al ty , asnwei ght , marstat , , 
chi  1 dren , uni tname , enrol  date, uni 1 1 , uni t2 , uni t3 , submdate 
a  13,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  file5.dbf 
USE  f i 1 e6 
COPY  TO  file5 

3  14,30  SAY  ' FILE7 . ' 

COPY  TO  f i 1 e7 
a  14,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  file3.dbf 
DELETE  FILE  file4.dbf 
RETURN 
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PROGRAM  ASSIGN04  *-******-***■*■**•*■*•■**•*•■#•**■* 
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*  This  program  performs  the  assignments  of  the  majors 

DO  mkau:<fl4 
DO  windowl 

*  assign  majors  graduating  from  WC  to  artillery  staffs 

*  by  combining  requests  and  assignment  weights 

a  5,23  SAY  '  ASSIGNMENTS  FOR  THE  MAJORS' 

St  6,23  SAY  '  GRADUATING  FROM  THE  WAR  COLLEGE' 

S>  7,23  SAY  '  ARE  BEING  PROCESSED' 

3  8,23  SAY  '  FIRST  PASS' 

STORE  '08/05/86'  TO  tdate 

*  open  required  for  the  processing  files 
SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  staffs 

SELECT  3 

USE  file3 

SELECT  4 

USE  f i 1 e4 

SELECT  3 

STORE  O  TO  cnt 

STORE  .T.  TO  found 


DO  WHILE  found 

IF  .NOT.  DELETED () 

STORE  '  '  TO  tuni t , tul , tu2 , tu3 

STORE  serno  TO  tserno 

STORE  source  TO  tsource 

STORE  specialty  TO  tspec 

STORE  asnweight  TO  weight 

STORE  uni t 1  TO  tul 

STORE  uni t2  TO  tu2 

STORE  un i 1 3  TO  tu3 

*  find  requested  units  and  store  name,  echelon, 

*  and  readiness  into  temporary  memvars 
STORE  1  TO  loopcnt 

STORE  .F.  TO  resolved 
STORE  .T.  TO  preference 
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DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 
IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 
SELECT  1 

LOCATE  FOR  serno  #  tserno  .AND.  unitname  =  tu 
IF  EOF ( ) 

*  requested  unit  is  available 

*  check  if  somebody  else  requests  the  same  unit 

SELECT  4 

DO  WHILE  .NOT.  EOF ( )  .AND.  preference 

IF  .NOT.  DELETED ( )  .AND.  serno  #  tserno 

IF  unitl=tu  .OR.  unit2=tu  .OR.  unit3=tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 

IF  marst  =  'S'  .AND.  marstat  #  S' 
STORE  .F.  TO  preference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the  preference, 

*  unit  is  granted,  record  is  marked  for  deletion 

STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 


LOCATE  FOR  serno  =  tserno 

DELETE 

SELECT  1 

FIND  &tserno 

REPLACE  unitname  WITH  tun it,, 

asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 

STORE  cnt  +  1  TO  cnt 
STORE  .T.  TO  resolved 
SELECT  3 
DELETE 
SELECT  2 

LOCATE  FOR  uni tname=tuni  t  .AND.  .NOT.  DELETED ( ' 
DELETE 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

END  IF 
SELECT  3 
SKIP 
IF  EOF ( ) 

GO  TOP 
IF  cnt  #  O 

STORE  O  TO  cnt 
ELSE 

STORE  .F.  TO  found 
END  IF 
END  IF 

ENDDO 

a  8,23  SAY  '  SECOND  PASS' 

SELECT  3 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

IF  .NOT.  DELETED () 

STORE  serno  TO  tserno 
STORE  un i t 1  TO  tul 
STORE  uni t2  TO  tu2 
STORE  unit3  TO  tu3 
STORE  .T.  TO  found 
SELECT  2 

LOCATE  FOR  unitname  =  tul  .AND.  .NOT.  DELETED ( ) 

IF  .NOT.  EOF ( ) 

STORE  0  TO  tweight 
STORE  .tul  TO  tun 1 1 
DELETE 


tu2  .AND.  .NOT.  DELETED ( > 


ELSE 

LOCATE  FOR  unitname  = 

IF  .NOT.  EOF ( ) 

STORE  1  TO  tweight 
STORE  tu2  TO  tunit 
DELETE 
ELSE 

LOCATE  FOR  unitname  =  tu3  .AND.  .NOT.  DELETED ( > 
IF  .NOT.  EOF ( ) 

STORE  2  TO  tweight 
STORE  STORE  tu3  TO  tunit 
DELETE 
ELSE 

LOCATE  FOR  .NOT.  DELETED ( ) 

IF  .NOT.  EOF ( ) 

STORE  3  TO  tweight 
STORE  unitname  TO  tunit 
DELETE 

ELSE 

3  23,18  SAY  '***  ERROR' 

STORE  .F.  TO  -found 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
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IF  found 
SELECT  1 
FIND  Sftserno 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 

END  IF 

SELECT  3 
DELETE 
SKIP 
ENDDO 


CLOSE  DATABASES 
DELETE  file  file3.dbf 
DELETE  file  file4.dbf 
DELETE  FILE  staffs. dbf 


m 
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*  assign  majors  to  units  and  staffs  in  which  they  can 

*  serve  by  combining  requests  and  assignment  weights 
DO  windowl 

3  5,23  SAY  '  ASSIGNMENTS  FOR  THE  MAJORS' 

3  6,23  SAY  'SERVING  IN  STAFFS  AND  COMBAT  UNITS' 

3  7,23  SAY  '  ARE  BEING  PROCESSED' 

*  open  required  for  the  processing  files 
SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  f i 1 e5 

SELECT  3 

USE  f i 1 e6 

SELECT  4 

USE  selected  INDEX  selected 
SELECT  5 
USE  file? 

STORE  .  T.  TO  ok 
3  8,23  SAY  ' 

3  8,23  SAY  '  FIRST  PASS' 

STORE  '08/15/86'  TO  tdate 

*  get  each  officer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  defere  it  for  the  second  pass 
DO  WHILE  .NOT.  EOF ( ) 

STORE  .  F.  TO  granted 
STORE  .T.  TO  preference 
STORE  serno  TO  tserno 
STORE  rank  TO  trank 
STORE  source  TO  tsource 
STORE  specialty  TO  tspec 
STORE  asnweight  TO  weight 
STORE  marstat  TO  marst 

STORE  '  '  TO  tunit.tul ,tu2,tu3 

SELECT  4 
FIND  !<tserno 

IF  .NOT.  EOF ( ) 

STORE  schoolname  TO  tunit 
STORE  0  TO  tweight 
SELECT  3 

LOCATE  FOR  serno  =  tserno 
DELETE 
ELSE 

SELECT  5 

STORE  unitl  TO  tul 
STORE  unit2  TO  tu2 
STORE  unit3  TO  tu3 
STORE  . F.  TO  resolved 
STORE  1  TO  loopent 
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*  determine  which  of  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 

DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 

*  check  if  requested  unit  is  available, 

SELECT  3 

LOCATE  FOR  specialty  =  tspec  .AND.  source  =  tsource, 
.AND.  unitname  =  tu  .AND.  serno  #  tserno, 

.AND.  .NOT.  DELETED () 

IF  .NOT.  EOF ( ) 

STORE  serno  TO  idno 
SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED O 
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IF  .NOT.  EOF ( ) 

*  someone  else  from  the  requested  unit  is  to  be 

*  moved,  check  if  someone  else  has  requested  the 

*  same  unit 
SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOF ( )  .AND.  .NOT.  done 
IF  .NOT.  DELETED <> 

IF  speci al ty=tspec  .AND.  serno  #  tserno, 
.AND.  source  =  tsource 
IF  unitl  =  tu  .OR.  unit2  =  tu, 

. OR .  unit3  =  tu 
STORE  .T.  TO  done 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted , record  is  marked  for  deletion 

STORE  tu  TO  tunit 
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DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  preference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference)  ! 
IF  .NOT.  DELETED () 

IF  serno  #  tserno, 

.AND.  specialty  =  tspec, 

.AND.  source  =  tsource 
IF  unitl  =  tu  .OR.  unit2  =  tu, 

•OR.  unit3  =  tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 
IF  marst  =  'S', 

•AND.  marstat  #  'S' 
STORE  .F.  TO  preference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
ENDIF 
SKIP 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the 

*  preference,  unit  is  granted,  record 

*  is  marked  for  deletion 
STORE  tu  TO  tun it 


DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loapcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  .  T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
ENDIF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  for  the  next  pa 
STORE  TO  tun it 

STORE  3  TO  tweight 
STORE  .F.  TO  ok 
ENDIF 
ENDIF 


*  build  record  in  the  file  containing  the  assignments 
SELECT  1 
APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 

SELECT  5 
SKIP 
ENDDO 
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t  s 


*  second  pass 


IF  .NOT.  ok 

*  unresolved  assignments  exist 
SELECT  6 

USE  unit  INDEX  unit 

a  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 
STORE  .F.  TO  deletion 

SELECT  1 

*  build  temporary  -file  containing  unresolved  assignments 

COPY  TO  fileS  FOR  unitname  =  .AND.  rank  =  '04' 

SELECT  5 

USE  f i 1 e8 

*  get  one  record  at  a  time  and  try  to  satify  request 
DO  WHILE  .NOT.  EOF ( ) 

STORE  '  '  TO  tsource 

STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  source  TO  tsource 
STORE  '  '  TO  tunit 

SELECT  2 

*  find  requested  units  and  store  them  into  memvars 
LOCATE  FOR  serno  =  tserno 

STORE  '  '  TO  tu 

STORE  wcf ini  shed  TO  twc  ' 

STORE  unitl  TO  tul 
STORE  unit2  TO  tu2 
STORE  uni t3  TO  tu3 
STORE  .F.  TO  found 
STORE  .T.  TO  requested 
GO  TOP 

*  find  available  units 

DO  WHILE  .NOT.  EOF  (  )  .AND.  .NOT.  found 
IF  .NOT.  DELETED <) 

IF  serno  #  tserno  .AND.  specialty  =  tspec, 

.AND.  source  =  tsource 
STORE  serno  TO  i dno 
*  unit  available 
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DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  0  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  1  TO  tweight 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  2  TO  tweight 
OTHERWISE 

*  found  available  unit  is  not  requested 

IF  unitname  =  'DAB  ' 

IF  twc 

STORE  .F.  TO  requested 
END  IF 
ELSE 

STORE  unitname  TO  tu 
SELECT  6 
FIND  &tu 

IF  category  =  'S  ' 

IF  twc 

STORE  .F.  TO  requested 
ENDIF 
ELSE 

STORE  .F.  TO  requested 
ENDIF 
ENDIF 
SELECT  2 

ENDCASE 

ENDIF 

ENDIF 

SKIP 

ENDDO 

IF  -found 

*  unit  available  is  one  a-f  the  requested  units,  mark 

*  record  -for  deletion,  so  that  it  will  not  be 

*  encountered  again 
LOCATE  FOR  serno  =  idno 
DELETE 

STORE  . T.  TO  resolved 
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ELSE 

IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  for  deletion 

LOCATE  FOR  serno  =  idno 
STORE  unitname  TO  tunit 
STORE  3  TO  tweight 
STORE  .T.  TO  resolved 
DELETE 
ELSE 

3  22,18  SAY  'OFFICER  CANNOT  BE  ASSIGNED 'GET  t serno 
END  IF 
END  IF 
SELECT  1 
FIND  Sitserno 
IF  resolved 

*  update  record  in  assigned  file 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 
ELSE 

*  no  available  unit  found,  delete  created  in  assigned 

*  file  record.  Officer  will  remain  in  the  same  unit 

DELETE 

STORE  .T.  TO  deletion 
END  IF 
SELECT  5 

STORE  .F.  TO  resolved 
SKIP 
ENDDO 

END  IF 

IF  deletion 
SELECT  1 
PACK 
END  IF 


*  update  USERLOG  file 
SELECT  6 


USE  userid 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  7 
USE  user  1 og 
APPEND  BLANK 

REPLACE  username  WITH  F->username,  task  WITH  'ASSIGNMENTS',, 
progname  WITH  ' ASSIGN04 ' ,  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 


******************  PROGRAM  MKAUXFL4 


*  This  program  builds  the  required  auxiliary  -files  -for  the 

*  processing  o-f  the  assignments  o-f  the  majors 

DO  window 

*  build  -file  containing  personal  data  and 

*  requests  o-f  the  graduaring  -from  WC  majors 

a  8,30  SAY  '  FILE3 . ' 

SELECT  1 
USE  o-f-fi  cer 
SELECT  2 
USE  serves 

COPY  TO  -filel  FOR  unitname  =  'WC' 

SELECT  3 
USE  filel 

JOIN  WITH  A  TO  file2  FOR  serno  =  A->serno  , 

FIELDS  serno, source .specialty, marstat .unitname , asnwei ght 
SELECT  4 
USE  requests 
SELECT  5 
USE  f i 1 e2 

JOIN  WITH  D  TO  file3  FOR  serno  =  D->serno  , 

FIELDS  serno , source , spec l al ty , unitname , uni t 1 , un i t2 , uni t3 , , 
asnwei ght , marstat , wcf i ni shed 
3  8, 45-  SAY  'READY' 

SELECT  6 
USE  f i 1 e3 

a  9,30  SAY  'FILE4 . ' 

COPY  TO  f i 1 e4 
a  9,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  filel.dbf 
DELETE  FILE  file2.dbf 
SELECT  7 

USE  assigned  INDEX  assigned 

a  10,30  SAY  'ASSIGNED  . ' 

APPEND  FROM  file3 
GO  TOP 


DO  WHILE  .NOT.  EOF ( ) 

IF  rank  =  '04' 

REPLACE  unitname  WITH 

asgndate  WITH  CTOD (' 08/01 /86 '), , 
asnwei ght  WITH  0 


END  IF 
SKIP 
ENDDO 


a  10,45  SAY  'READY' 
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SELECT  8 
USE  unit  • 

3  11,30  SAY  'STAFFS  . ' 

COPY  TO  sta-f-fs  FOR  category  =  'S  '  .AND.  unitname  #  'ABD/HASS' 
CLOSE  DATABASES 
SELECT  2 
USE  sta-f-fs 

APPEND  FROM  unit  FOR  echelon  =  'AC/ AC' 
a  11,45  SAY  'READY' 

CLOSE  DATABASES 

*  build  -file  containing  personal  data  and  requests 

*  -for  the  rest  o-f  majors  under  assignment 
SELECT  1 

USE  serves 
SELECT  2 
USE  o-f-fi  cer 

a  12,30  SAY  'FILES . ' 

COPY  TO  -filel  FOR  rank  =  '04' 

SELECT  1 

COPY  TO  -f  i  1  e2  FOR  DATE  ( )  -  enrol  date  >=  600, 

.AND.  unitname  #  'WC 
SELECT  3 
USE  -f  i  1  e2 
SELECT  4 
USE  -filel 

JOIN  WITH  C  TO  -file5  FOR  serno  =  C->serno  , 

FIELDS  serno, rank , source , spec i al ty , asn weight ,marstat , , 
unitname 

a  12,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  filel.db-f 
DELETE  FILE  file2.db-f 
SELECT  5 
USE  requests 
SELECT  6 
USE  -files 

a  13,30  SAY  'FILE6 . ' 

JOIN  WITH  E  TO  -f  i  1  e6  FOR  serno  =  E— >serno, 

FIELDS  serno ,rank, sour ce , spec i al ty , asnwei ght , mar st at , , 
unitname , uni tl,unit2,unit3,wc finished 
CLOSE  DATABASES 
DELETE  FILE  -file5.db-f 
SELECT  7 
USE  -f  i  1  e6 
COPY  TO  f i 1 e5 
a  13,45  SAY  'READY' 

a  14,30  SAY  'FILE? . ' 

COPY  TO  -file? 
a  14,45  SAY  'READY' 

CLOSE  DATABASES 
RETURN 
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******-*■******■»■•*•*-*■* 


PROGRAM  ASSIGNOS  ***•*■»*■*****■*****■»■***■*♦ 


*  This  program  per-forms  the  assignments  of  the  lieutenant 

*  colonels 

*  build  necessary  auxiliary  files 
DO  mkaux-f  15 

*  assign  lieutenant  colonels  to  units  and  staffs  in  which 

*  they  can  serve  by  combining  requests  and  assignment  weights 


DO  windowl 

a  5,21  SAY  'ASSIGNMENTS  FOR  THE  LIEUTENANT  COLONELS' 
3  6,21  SAY  '  ARE  BEING  PROCESSED' 


*  open  required  for  the  processing  files 
SELECT  1 

USE  assigned  INDEX  assigned 
SELECT  2 
USE  file5 
SELECT  3 
USE  f i 1 e6 
SELECT  4 
USE  selected 
SELECT  5 
USE  f i 1 e7 
STORE  .  T.  TO 
3  8,23  SAY  ' 
a  8,23  SAY  ' 

STORE  '08/15/86'  TO 


INDEX  selected 


ok 


FIRST 

tdate 


PASS' 


*  get  each  officer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  defere  it  for  the  second  pass 
DO  WHILE  .NOT.  EOF ( ) 

STORE  .F.  TO  granted 
STORE  .T.  TO  preference 
STORE  serno  TO  tserno 
STORE  rank  TO  trank 
STORE  source  TO  tsource 
STORE  specialty  TO  tspec 
STORE  asnweight  TO  weight 
STORE  marstat  TO  marst 

STORE  '  '  TO  turn t , tu 1 , tu2 , tu3 

SELECT  4 
FIND  !<tserno 
IF  .NOT.  EOF ( ) 

STORE  schoolname  TO  tunit 
STORE  0  TO  tweight 
SELECT  3 

LOCATE  FOR  serno  =  tserno 
DELETE 


SELECT  5 

STORE  unitl  TO  tul 
STORE  uni t2  TO  tu2 
STORE  unit- 3  TO  tu-3 
STORE  .F.  TO  resolved 
STORE  1  TO  loopcnt 

*  determine  which  of  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 

DO  WHILE  -NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF-  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 

*  check  if  requested  unit  is  available, 

SELECT  3 

LOCATE  FOR  unitname  =  tu  .AND.  serno  #  tserno, 

. AND .  . NOT .  DELETED ( ) 

IF  .NOT.  EOF ( ) 

STORE  serno  TO  idno 
SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED () 

IF  .NOT.  EOF ( ) 

*  someone  else  from  the  requested  unit  is  to  be 

*  moved  check  if  someone  else  has  requested  the 

*  same  unit 
SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOF ( )  .AND.  .NOT.  done 
IF  .NOT.  DELETED () 

IF  serno  #  tserno 

IF  unitl  =  tu  .OR.  umt2  =  tu, 

. OR .  un 1 1 3  =  t  u 
STORE  . T.  TO  done 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 
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IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted , record  is  marked  -for  deletion 

STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 


STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  preference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference) ! 
IF  .NOT.  DELETED (> 

IF  serno  #  tserno 

IF  unitl  =  tu  .OR.  unit2  =  tu, 

.OR.  unit3  =  tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 


IF  asnweight  =  weight 
IF  marst  =  'S', 

.AND.  marstat  #  'S' 
STORE  F.  TO  preference 
ENDIF 
END  IF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SKIP 
ENDDO 

IF  preference 

*  officer  requested  this  unit  has  the 

*  preference,  unit  is  granted,  record 

*  is  marked  for  deletion 
STORE  tu  TO  turn  t 
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DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  . T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  -for  the  next  pass 
STORE  TO  tunit 

STORE  3  TO  tweight 
STORE  .F.  TO  ok 
END  IF 
END  IF 

*  build  record  in  the  -file  containing  the  assignments 
SELECT  1 
APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 

SELECT  5 
SK I P 
ENDDO 


IS! 
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*  second  pass 


IF  .NOT.  ok 

*  unresolved  assignments  exist 
SELECT  6 

USE  unit  INDEX  unit 

3  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  resolved 
STJRE  .F.  TO  deletion 

SELECT  1 

*  build  temporary  -file  containing  unresolved  assignment 

COPY  TO  file8  FOR  unitname  =  .AND.  rank  =  '05' 

SELECT  5 

USE  f  i  1  e8 

*  get  one  record  at  a  time  and  try  to  satify  request 
DO  WHILE  .NOT.  EOF ( ) 

STORE  '  '  TO  tsource 

STORE  serno  TO  tserno 
STORE  specialty  TO  tspec 
STORE  source  TO  tsource 
STORE  '  '  TO  tun it 

SELECT  2 

*  find  requested  units  and  store  them  into  memvars 

LOCATE  FOR  serno  =  tserno 
STORE  '  '  TO  tu 

STORE  wcf ini  shed  TO  twc 
STORE  uni t 1  TO  tul 
STORE  unit2  TO  tu2 
STORE  uni t3  TO  tu3 
STORE  .F.  TO  found 
STORE  .T.  TO  requested 
GO  TOP 

*  find  available  units 
DO  WHILE  .NOT.  EOF ( )  .AND.  . 

IF  .NOT.  DELETED () 

IF  serno  #  tserno 

STORE  serno  TO  i dno 
*  unit  available 


NOT 


found 


DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  .T.  TO  -found 
STORE  unitname  TO  tunit 
STORE  O  TO  tweight 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  . T.  TO  found 
STORE  unitname  TO  tunit 
STORE  1  TO  tweight 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  .T.  TO  found 
STORE  unitname  TO  tunit 
STORE  2  TO  tweight 
OTHERWISE 

*  found  available  unit  is  not  requested 

IF  unitname  =  'OAB  ' 

IF  twc 

STORE  .F.  TO  requested 
END  IF 
ELSE 

STORE  unitname  TO  tu 
SELECT  6 
FIND  & tu 

IF  category  =  'S  ' 

IF  twc 

STORE  .F.  TO  requested 
END  IF 
ELSE 

STORE  .  F.  TO  requested 
END  IF 
END  IF 
SELECT  2 

ENDCASE 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  found 

*  unit  available  is  one  of  the  requested  units,  mark 

*  record  for  deletion,  so  that  it  will  not  be 

*  encountered  again 
LOCATE  FOR  serno  =  idno 

DELETE 

STORE  .T.  TO  resolved 


IF  .NOT.  requested 

*  available  unit  is  not  requested 

*  mark  record  -far  deletion 

LOCATE  FOR  serno  =  idno 
STORE  unitname  TO  tunit 
STORE  3  TO  tweight 
STORE  .T.  TO  resolved 
DELETE 
ELSE 

a  22,18  SAY  'OFFICER  CANNOT  BE  ASS I SNED ' GET  tserno 
END  IF 
END  IF 
SELECT  1 
FIND  !itserno 
IF  resolved 

*  update  record  in  assigned  -file 

REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight 
ELSE 

*  no  available  unit  -found,  delete  created  in  assigned 

*  -file  record.  O-f-ficer  will  remain  in  the  same  unit 

DELETE 

STORE  .T.  TO  deletion 
END  IF 
SELECT  5 

STORE  .F.  TO  resolved 
SKIP 
ENDDO 

ENDIF 

IF  deletion 
SELECT  1 
PACK 
ENDIF 

*  update  USERLOG  -file 
SELECT  7 
USE  userid 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  8 
USE  user  log 
APPEND  BLANK 

REPLACE  username  WITH  G— >username,  task  WITH  'ASSIGNMENTS',, 
progname  WITH  'ASSIGN05',  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
CLOSE  DATABASES 
DELETE  FILE  -file5.db-f 
DELETE  FILE  file6.dbf 
DELETE  FILE  -fileT.dbf 
DELETE  FILE  file3.db-f 
RETURN 


*********•*■*-***-*■-*■•**•  PROGRAM  MKAUXFL5  -iMt**********-*****-*-*-*-**- 

*  This  program  builds  the  required  auxiliary  -files  -for  the 

*  processing  o-f  the  assignments  o-f  the  lieutenant  colonels 

DO  window 

*  build  -file  containing  personal  data  and  requests 

*  -far  the  lieutenant  coloneles  under  assignment 
SELECT  1 

USE  serves 
SELECT  2 
USE  o-f-ficer 

3  8,30  SAY  'FILES  .... _ ' 

COPY  TO  f  i  lei  FOR  rank  =  '05' 

SELECT  1 

COPY  TO  f  i  1 e2  FOR  DATE ( )  -  enrol  date  >=  600 

SELECT  3 

USE  -f  i  1  e2 

SELECT  4 

USE  -filel 

JOIN  WITH  C  TO  file5  FOR  serno  =  C->serno  , 

FIELDS  serno, rank , source , speci al ty , asnwei ght , mar  st at , , 
uni tname 

3  8,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  filel.dbf 
DELETE  FILE  file2.dbf 
SELECT  5 
USE  requests 
SELECT  6 
USE  f i 1 e5 

3  9,30  SAY  ' FILE6 . ' 

JOIN  WITH  E  TO  f i 1 e6  FOR  serno  =  E->serno, 

FIELDS  serno , rank , source , special ty , asnwei ght , marstat , , 
uni tname , un i t 1 , uni t2 , uni t3 , wcf i n i shed 
CLOSE  DATABASES 
DELETE  FILE  fileS.dbf 
SELECT  7 
USE  f l 1 e6 
COPY  TO  file5 
3  9,45  SAY  'READY' 

3  10,30  SAY  ' FILET . ' 

COPY  TO  file? 

3  10,45  SAY  'READY' 

CLOSE  DATABASES 
RETURN 


PROGRAM  ASSIGN06 


********************** 


*  This  program  performs  the  assignments  of  the  colonels 

*  build  necessary  auxiliary  -files 
DO  mk:au:<fl6 

*  assign  colonels  to  units  and  sta-f-fs  in  which  they  can 

*  serve  by  combining  requests  and  assignment  weights 

DO  windowl 

a  5,21  SAY  '  ASSIGNMENTS  FOR  THE  COLONELS' 

a  6,21  SAY  '  ARE  BEING  PROCESSED' 

*  open  required  for  the  processing  files 
SELECT  1 

USE  assigned  INDEX  assigned 

SELECT  2 

USE  files 

SELECT  3 

USE  f i 1 e6 

SELECT  4 

USE  file? 

STORE  .T.  TO  ok 
a  8,23  SAY  ' 

a  8,23  SAY  '  FIRST  PASS' 

STORE  '08/15/86'  TO  tdate 

*  get  each  officer  under  assignment  and  determine  the 

*  unit  to  be  assigned  or  defere  it  for  the  second  pass 
DO  WHILE  .NOT.  EOF ( ) 

STORE  .F.  TO  granted 
STORE  .T.  TO  preference 
STORE  serno  TO  tserno 
STORE  rank  TO  trank 
STORE  source  TO  tsource 
STORE  specialty  TO  tspec 
STORE  asnweight  TO  weight 
STORE  marstat  TO  marst 

STORE  '  '  TO  tuni t , tu 1 , tu2 , tu3 

STORE  unitl  TO  tul 

STORE  unit2  TO  tu2 

STORE  uni t3  TO  tu3 

STORE  .F.  TO  resolved 

STORE  1  TO  loopcnt 


*  determine  which  of  the  requested  units 

*  will  be  examined  next  (1st,  2nd,  or  3rd) 
DO  WHILE  .NOT.  resolved  .AND.  loopcnt  <  4 

IF  loopcnt  =  1 

STORE  tul  TO  tu 
ELSE 

IF  loopcnt  =  2 

STORE  tu2  TO  tu 
ELSE 

STORE  tu3  TO  tu 
END  IF 
END  IF 


*  check  l  -f  requested  unit  is  available 
SELECT  3 

LOCATE  FOR  unitname  =  tu  .AND.  serno  #  tserno, 
.AND.  .NOT.  DELETED () 

IF  .NOT.  EOF ( ) 

STORE  serno  TO  idno 
SELECT  2 

LOCATE  FOR  serno  =  idno  .AND.  .NOT.  DELETED O 


IF  .NOT.  EOF ( ) 

*  someone  else  from  the  requested  unit  is  to  be  moved 

*  check  ii  someone  else  has  requested  the  same  unit 

SELECT  3 

STORE  .F.  TO  done 

DO  WHILE  .NOT.  EOF ( )  .AND.  .NOT.  done 
IF  .NOT.  DELETED () 

IF  serno  #  tserno 

IF  unitl=tu  .OR.  unit2=tu  .OR.  unit3=tu 
STORE  .T.  TO  done 
END  IF 
END  IF 
ENDIF 
SK I P 
ENDDO 


IF  .NOT.  done 

*  nobody  else  requests  the  same  unit,  requested 

*  unit  is  granted,  record  is  marked  -for  deletion 

STORE  tu  TO  tunit 


DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 


'.'W 


STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 
SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
ELSE 

*  somebody  else  requests  the  same  unit,  check 

*  assignment  weights  to  see  whom  will  be  given 

*  the  preference  to 

DO  WHILE  ((.NOT.  EOF ( ) )  .AND.  (preference) ) 
IF  .NOT.  DELETED () 

IF  serno  #  tserno 

IF  unitl  =  tu  .OR.  unit2  =  tu, 

•OR.  unit3  =  tu 
IF  asnweight  >  weight 

STORE  .F.  TO  preference 
ELSE 

IF  asnweight  =  weight 
IF  marst  =  'S', 

.AND.  marstat  #  'S' 
STORE  .F.  TO  preference 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
SKIP 
ENDDO 

IF  preference 

*  o-f-ficer  requested  this  unit  has  the 

*  preference,  unit  is  granted,  record 

*  is  marked  for  deletion 
STORE  tu  TO  tun it 

DO  CASE 

CASE  loopcnt  =  1 

STORE  0  TO  tweight 
CASE  loopcnt  =  2 

STORE  1  TO  tweight 
CASE  loopcnt  =  3 

STORE  2  TO  tweight 

ENDCASE 

STORE  .T.  TO  granted 
LOCATE  FOR  serno  =  tserno 
DELETE 


SELECT  2 

LOCATE  FOR  serno  =  idno 
DELETE 

STORE  .T.  TO  resolved 
END  IF 
END  IF 
END  IF 
END  IF 

STORE  loopcnt  +  1  TO  loopcnt 
ENDDO 

IF  .NOT.  resolved 

*  unresolved  assignment,  de-fere  it  for  the  next  pass 

STORE  TO  tun it 

STORE  3  TO  tweight 
STORE  .F.  TO  ok 
END  IF 

*  build  record  in  the  file  containing  the  assignments 
SELECT  1 

APPEND  BLANK 

REPLACE  serno  WITH  tserno,  rank  WITH  trank,, 

source  WITH  tsource,  specialty  WITH  tspec 
REPLACE  unitname  WITH  tunit,  asnweight  WITH  tweight,, 
asgndate  WITH  CTOD(tdate) 

SELECT  4 
SKIP 
ENDDO 

*  second  pass 
IF  .NOT.  ok 

*  unresolved  assignments  exist 

a  8,23  SAY  '  SECOND  PASS' 

STORE  .F.  TO  deletion 

SELECT  1 

*  get  one  record  at  a  time  and  try 

*  to  satisfy  unsatisfied  requests 
GO  TOP 

STORE  0  TO  cnt 

DO  WHILE  .NOT.  EOF ( ) 

IF  unitname  =  ' * 

STORE  serno  TO  tserno 

STORE  '  '  TO  tunit ,tul ,tu2,tu3 

SELECT  3 
GO  TOP 


*  -find  requested  units  and  store  them  into  memvars 
LOCATE  FOR  serno  —  tserno 

STORE  uni t 1  TO  tul 
STORE  uni t2  TO  tu2 
STORE  uni  t-3  TO  tu3 
STORE  .F.  TO  -found 

*  find  available  units 
SELECT  2 

SO  TOP 

DO  WHILE  ((.NOT.  EOF  O  )  .AND.  (.NOT.  -found)) 

IF  .NOT.  DELETED () 

IF  serno  #  tserno 
*  unit  available 
DO  CASE 

CASE  unitname  =  tul 

*  unit  is  the  1st  requested 

STORE  unitname  TO  tun it 
STORE  O  TO  tweight 
DELETE 

STORE  .T.  TO  -found 
CASE  unitname  =  tu2 

*  unit  is  the  2nd  requested 

STORE  unitname  TO  tun it 
STORE  1  TO  tweight 
DELETE 

STORE  .T.  TO  found 
CASE  unitname  =  tu3 

*  unit  is  the  3rd  requested 

STORE  unitname  TO  tun it 
STORE  2  TO  tweight 
DELETE 

STORE  .T.  TO  found 
OTHERWISE 

*  found  available  unit  is  not  requested 

STORE  cnt  +  1  TO  cnt 

ENDCASE 
ENFIF 
END  IF 
SKIP 
ENDDO 

IF  found 

*  available  unit  is  one  of  the  requested 

SELECT  1 

REPLACE  unitname  WITH  tunit,, 
asnweight  WITH  tweight 

END  IF 
END  IF 
SELECT  1 
SKIP 
ENDDO 


166 


SELECT  1 
.  GO  TOP 

DO  WHILE  .NOT.  EOF  ( ) 

IF  unitname  =  '*  ' 

STORE  serno  TO  tserno 
STORE  '  '  TO  tun it 

SELECT  2 

LOCATE  FOR  serno  #  tserno  .AND.  .NOT.  DELETED ( ) 

IF  .NOT.  EOF ( ) 

STORE  unitname  TO  tun it 

DELETE 

SELECT  1 

REPLACE  unitname  WITH  tunit 
ELSE 

SELECT  1 
DELETE 

STORE  .T.  TO  deletion 

3  24,20  SAY  'OFFICER  CANNOT  BE  ASSIGNED 'GET  tserno 
END  IF 
END  IF 
SELECT  1 
SKIP 
ENDDO 

END  IF 

IF  deletion 
SELECT  1 
PACK 
END  IF 

*  update  USERLOG  -file 
SELECT  7 
USE  user i d 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  8 
USE  user  log 
APPEND  BLANK 

REPLACE  username  WITH  G->username,  task  WITH  'ASSIGNMENTS',, 
progname  WITH  ' ASSIGN06 ' ,  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 

CLOSE  DATABASES 
DELETE  FILE  fileS.dbf 
DELETE  FILE  file6.db-f 
DELETE  FILE  -fileT.dbf 
RETURN 


*•»■»•*■»■»■*•»****•»****■*  PROGRAM  MKAUXFL6  ***■*****■*■**■***■*•*****■** 


*  This  program  builds  the  required  auxiliary  -files  -for  the 

*  processing  of  the  assignments  of  the  colonels 


DO  window 

*  build  file  containing  personal  data  and 

*  requests  for  the  coloneles  under  assignment 
SELECT  1 

USE  serves 
SELECT  2 
USE  officer 

3  8,30  SAY  ' FILE5  .... _ ' 

COPY  TO  f i lei  FOR  rank  =  '06' 

SELECT  1 

COPY  TO  f i 1 e2  FOR  DATE O  -  enrol  date  >=  300 

SELECT  3 

USE  f i 1 e2 

SELECT  4 

USE  f i lei 

JOIN  WITH  C  TO  f i 1 e5  FOR  serno  =  C->serno  , 

FIELDS  serno , rank , source , speci al ty , asnwei ght , marstat , , 
uni t name 

a  8,45  SAY  'READY' 

CLOSE  DATABASES 
DELETE  FILE  filel.dbf 
DELETE  FILE  file2.dbf 
SELECT  5 
USE  requests 
SELECT  6 
USE  fileS 

a  9,30  SAY  ' FILE6 . ' 

JOIN  WITH  E  TO  file6  FOR  serno  =  E->serno, 

FIELDS  serno , rank , source, speci al ty , asnwei ght , marstat , , 
un i tname , un i 1 1 , un i 1 2 , un i 1 3 , wcf i n i shed 
CLOSE  DATABASES 
DELETE  FILE  fileS.dbf 
SELECT  7 
USE  f i 1 e6 
COPY  TO  f i 1 e5 
a  9,45  SAY  'READY' 

a  10,30  SAY  'FILE? . ' 

COPY  TO  file? 
a  10, 45 'SAY  'READY' 

CLOSE  DATABASES 
RETURN 


E.  PROGRAMS  PRODUCING  THE  REQUIRED  LISTS  AND  REPORTS 


PROGRAM  REPORTS  *********•*■*■#••*  •**■**•*  ■*•*-* 

*  Tis  program  controls  the  report  generation  operations 
CLEAR 

PUBLIC  repcode 
DO  rgmenu 

DO  WHILE  repcode  #  9 

DO  CASE 

CASE  repcode  =  1 
DO  listl 

CASE  repcode  =  2 
DO  1 i st2 

CASE  repcode  =  3 
DO  1 i st3 

CASE  repcode  =  4 
DO  1 i st4 

CASE  repcode  =  5 
DO  lists 

CASE  repcode  =  6 
DO  1 i st6 

CASE  repcode  =  7 
DO  reportl 

CASE  repcode  =  8 
DO  report2 

ENDCASE 

DO  rgmenu 
ENDDO 


RETURN 


**■***•»•»•»***■»**■»•»*****  PROGRAM  LIST1 


********************** 


*  This  program  provides  display  or  printer  output  o-f  the 

*  assignments  -for  a  specific  rank 


CLEAR 

00  window2 

STORE  '  '  TO  trank 


3  5,22  SAY 
3  6,23  SAY 
a  14,23  SAY 


'LIST  OF  SCHEDULED  ASSIGNMENTS  FOR  THE' 

'  REQUESTED  RANK  IS  GOING  TO  BE  PRINT  ' 

'  SPECIFY  RANK  ==>'  GET  trank, 

PICTURE  '99' 


READ 

a  14,23  SAY  ' 

a  8,23  SAY  '  AUXILIARY  FILE  REQUIRED' 

a  9,23  SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT  ' 

3  10,23  SAY  '  WAIT  . 

SELECT  1 

USE  officer  INDEX  offi cer 
SELECT  2 

USE  serves  INDEX  serves 


SELECT  3 


USE  au:<  -file 
SELECT  5 
USE  userid 
SELECT  6 
USE  user 1 og 
SELECT  4 

USE  assigned  INDEX  assigned 


DQ  WHILE  .NOT.  EOF ( ) 

IF  rank  =  trank 
STORE  ' 

STORE  ' 

STORE  ' 

STORE  serno  TO  tserno 
STORE  unitname  TO  t dun it 
STORE  asgndate  TO  tdate 
SELECT  1 
FIND  &tserno 
STORE  name  TO  tname 
SELECT  2 
FIND  fctserno 

STORE  unitname  TO  tsunit 
SELECT  3 
APPEND  BLANK 


TO  tname 
TO  tsuni t , tduni t 
TO  tduty 


REPLACE  serno  WITH  tserno, rank  WITH  trank,, 

name  WITH  tname, unitid  WITH  tsunit, dunit  WITH  tdunit,, 
date  WITH  tdate, duty  WITH  tduty 

END  IF 


SELECT  4 
SKIP 
ENDDO 


a  8,47  SAY 
SELECT  3 


'READY' 


STORE  '  '  TO  answer 

8  14,23  SAY  '  PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 

IF  UPPER (answer )  =  'Y' 

3  14,23  SAY  ' 

a  12,23  SAY  '  SWITCH  ON  YOUR  PRINTER' 

SET  PRINT  ON 

3  13,23  SAY  '  HIT  ANY  KEY  TO  CONTINUE' 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
END  IF 
CLEAR 

REPORT  FORM  mklistl 
IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 
GO  TOP 

DELETE  NEXT  500 
PACK 

SELECT  5 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  6 
APPEND  BLANK 

REPLACE  username  WITH  E->username,  task  WITH  'LIST  #  1',, 
progname  WITH  'LIST1',  logdate  WITH  DATE ( ) , , 
log  time  WITH  TIMEO 
CLOSE  DATABASES 
RETURN 


PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 


SWITCH  ON  YOUR  PRINTER' 


HIT  ANY  KEY  TO  CONTINUE' 


swc 


w 


sacra 


mi* 


**************-*■******  PROGRAM  LIST2  ********************** 

*  This  program  provides  display  or  printer  output  of  the 

*  officers  serving  in  a  specific  unit 

CLEAR 

DO  window2 

STORE  '  '  TO  tun it 

3  5,23  SAY  '  LIST  OF  OFFICERS  SERVING  IN  A ' 

3  6,23  SAY  '  SPECIFIC  UNIT  IS  GOING  TO  BE  PRINT  ' 

a  14,23  SAY  '  SPECIFY  UNIT  ==>'  GET  tunit 

READ 

3  14,23  SAY  ' 

3  8,23  SAY  '  AUXILIARY  FILE  REQUIRED' 

a  9,23  SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT  ' 
a  10,23  SAY  '  WAIT  . 

USE  officer  INDEX  officer  ALIAS  lookup 

SELECT  2 

USE  au:<  file 

SELECT  5 

USE  userid 

SELECT  6 

USE  user log 

SELECT  3 

USE  serves  INDEX  serves 

SET  RELATION  TO  serno  INTO  lookup 

DO  WHILE  .NOT.  EOF ( ) 

IF  unitname  =  tunit 
SELECT  2 
APPEND  BLANK 

REPLACE  serno  WITH  C->serno,rank  WITH  1 ookup- >r ank , , 
name  WITH  1 ookup- >name , uni ti d  WITH  C~>uni tname, , 
date  WITH  C->enrol date , duty  WITH  C->duty 

END  IF 

SELECT  3 
SKIP 
ENDDO 

a  8,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

3  14,23  SAY  '  PRINTER  OUTPUT*'  (Y/N)  ==>' 

READ 


GET  answer 


IF  UPPER (answer)  =  'Y' 

3  14,23  SAY  ' 

3  12,23  SAY  '  SWITCH  ON  YOUR  PRINTER' 

SET  PRINT  ON 

a  13,23  SAY  '  HIT  ANY  KEY  TO  CONTINUE' 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
END  IF 

CLEAR 

REPORT  FORM  mklist2 

IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 

60  TOP 

DELETE  NEXT  500 
PACK 

SELECT  5 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  6 
APPEND  BLANK 

REPLACE  username  WITH  E->username,  task  WITH  'LIST  #2',, 
progname  WITH  'LIST2' ,  logdate  WITH  DATE ( > , , 
logtime  WITH  TIMEO 
CLOSE  DATABASES 
RETURN 


***********************  PROGRAM  LIST3 


*•********■»■*■*■*•*■*  ■*■*■*•*•*■** 


*  This  program  provides  display  or  printer  output  o-f  the 

*  Artillery  o-f-ficers  in  some  requested  order 

CLEAR 

DO  windowZ 
STORE  0  TO  order 


a 

5,23 

SAY 

LIST  OF  OFFICERS 

/ 

a 

6,23 

SAY 

IN  SOME  ORDER  IS  GOING  TO 

BE 

PRINT' 

a 

8,23 

SAY 

POSSIBLE  ORDERS' 

a 

9,23 

SAY 

SENIORITY  (RANK): . 

■  •  ■  > 

.  .  1  ' 

a 

10,23 

SAY 

ALPHABETICAL: . 

■  «  «  • 

.  .  2' 

a 

11,23 

SAY 

SPECIALTY: . 

a  a  a  a 

.  .  3' 

a 

12,23 

SAY 

RANK  +  ALPHABETICAL: _ 

a  a  a  a 

.  .  4' 

a 

14,23 

SAY 

SPECIFY  ORDER  ==>' 

GET 

order 

PICTURE  '9'  RANGE  1,49 

READ 

a 

5,23 

SAY  ' 

AUXILIARY  FILE  REQUIRED' 

a 

6,23 

SAY  ' 

FOR  THE  PROCESSING  IS  BEING  BUILT  ' 

a 

8,23 

SAY  ' 

WAIT . 

t 

a 

9,23 

SAY  ' 

' 

a 

10,23 

SAY  ' 

* 

a 

11,23 

SAY  ' 

/ 

a 

12,23 

SAY  ' 

t 

a 

14,23 

SAY  ' 

* 

USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  au:<  file 

SELECT  4 

USE  userid 

SELECT  5 

USE  user log 

SELECT  3 

USE  o-fficer  INDEX  o-f  f  i  cer  ,  names  ,  ospec  i  al  ,  compound 

DO  CASE 

CASE  order  =  1 

SET  INDEX  TO  o-f-fi  cer 
CASE  order  =  2 

SET  INDEX  TO  names 
CASE  order  =  3 

SET  INDEX  TO  ospecial 
CASE  order  =  4 

SET  INDEX  TO  compound 

ENDCASE 

SET  RELATION  TO  serno  INTO  lookup 


a 


3 

\ 


DO  WHILE  .NOT.  EOF ( ) 

SELECT  2 
APPEND  BLANK 

REPLACE  rank  WITH  C->rank,na(ne  WITH  C->name,, 

source  WITH  C->source,specialty  WITH  C->speci al ty , , 
unitid  WITH  1 oofcup->uni tname ,marstat  WITH  C->marstat 
SELECT  3 
SKIP 
ENDDO 

a  8,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

8  14,23  SAY  '  PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 


SWITCH  ON  YOUR  PRINTER' 


HIT  ANY  KEY  TO  CONTINUE' 


IF  UPPER (answer)  =  'Y' 
a  14,23  SAY  ' 
a  12,23  SAY  ' 

SET  PRINT  ON 
3  13,23  SAY  ' 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
END  IF 


CLEAR 

REPORT  FORM  mklist3 

IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 

GO  TOP 

DELETE  NEXT  500 
PACK 

SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 
APPEND  BLANK 

REPLACE  username  WITH  D->username,  task  WITH  'LIST  #3',, 
progname  WITH  ' L I ST3 ' ,  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 
CLOSE  DATABASES 
RETURN 


PROGRAM  LIST4  *********************** 


*  This  program  provides  display  or  printer  output  o-f  the 

*  Artillery  o-ff icers  o-f  some  requested  rank 

CLEAR 

DO  windaw2 

STORE  '  '  TO  trank 

3  5,23  SAY  '  LIST  OF  OFFICERS  OF  SOME' 

3  6,23  SAY  'REQUESTED  RANK  IS  GOING  TO  BE  PRINT' 

3  14,23  SAY  '  SPECIFY  RANK  ==>'  GET  trank  PICTURE  'XX' 

READ 

3  5,23  SAY  '  AUXILIARY  FILE  REQUIRED  ' 

3  6,23  SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT  ' 

3  8,23  SAY  '  WAIT  . 

USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  au:<  -file 

SELECT  4 

USE  userid 

SELECT  5 

USE  user log 

SELECT  3 

USE  o-f -f  i  cer  INDEX  o-f-ficer 

SET  RELATION  TO  serno  INTO  lookup 

DO  WHILE  .NOT.  EOF ( ) 

IF  rank  =  trank 
SELECT  2 
APPEND  BLANK 

REPLACE  rank  WITH  C->rank,name  WITH  C- >name , , 

source  WITH  C- >source , speci al ty  WITH  C->speci al ty , , 
unitid  WITH  lookup->un:tname,marstat  WITH  C->marstat 

END  IF 

SELECT  3 
SKIP 
ENDDO 

3  8,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

3  14,23  SAY  '  PRINTER  OUTPUT?  (Y/N)  ==>' 

READ 


GET  answer 


Y 


IF  UPPER (answer)  = 
a  14,23  SAY  ' 
a  12,23  SAY  '  SWITCH  ON  YOUR  PRINTER' 

SET  PRINT  ON 

a  13,23  SAY  '  HIT  ANY  KEY  TO  CONTINUE' 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
END  IF 

CLEAR 

REPORT  FORM  mklist4 

IF  UPPER (answer)  =  'Y' 

SET  PRINT  OFF 
END  IF 

GO  TOP 

DELETE  NEXT  500 
PACK 

SELECT  4 

LOCATE  FOR  rassword  =  UPPER (psw) 

SELECT  5 
APPEND  BLANK 

REPLACE  username  WITH  D— >username,  task  WITH  'LIST  #4',, 
pragname  WITH  'LIST4' ,  logdate  WITH  DATE ( ) , , 
lagtime  WITH  TIMEO 
CLOSE  DATABASES 
RETURN 


I 

i 

i 
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***********■**■*•*■*■**■*■)«•*  PROGRAM  LISTS 


***********■#■■#■•*•*•■#•■**■■#■*■*•■#• 


*  This  program  provides  display  or  printer  output  o-f 

*  the  Artillery  battalion  commanders 

CLEAR 

DO  window2 

3  5,23  SAY  '  LIST  OF  THE  BATTALION  COMMANDERS  ' 

a  6,23  SAY  '  IS  GOING  TO  BE  PRINT' 

a  8,23  SAY  '  AUXILIARY  FILE  REQUIRED  ' 

a  9,23  SAY  '  FOR  THE  PROCESSING  IS  BEING  BUILT  ' 
a  10,23  SAY  '  WAIT .  ' 

USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  au;<  -file 

SELECT  4 

USE  useid 

SELECT  5 

USE  user log 

SELECT  3 

USE  o-f-ficer  INDEX  o-f-fi  cer 

SET  RELATION  TO  serno  INTO  lookup 

DO  WHILE  .NOT.  EOF ( ) 

IF  rank  =  '05' 

IF  lookup- >duty  =  'CDR  ' 

SELECT  2 
APPEND  BLANK 

REPLACE  rank  WITH  C~>rank,name  WITH  C->name, , 
source  WITH  C->source,, 
specialty  WITH  C->speci al ty , , 
marstat  WITH  C- >marstat , serno  WITH  C->serno 
REPLACE  unitid  WITH  lookup- >uni tname, , 
date  WITH  1 ookup->enrol date 

END  IF 

END  IF 

SELECT  3 
SKIP 
ENDDO 

a  10,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

a  14,23  SAY  '  PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 


Y 


«t 


IF  UPPER (answer)  =  ' 
a  14,23  SAY  ' 
a  12,23  SAY  '  SWITCH  Ui-J  YOUR  PRINTER' 

SET  PRINT  ON 

3  13,23  SAY  '  HIT  ANY  KEY  TO  CONTINUE' 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 
END  IF 


i 

I 


CLEAR 

REPORT  FORM  mklist5 

IF  UPPER (answer)  =  'Y' 
SET  PRINT  OFF 
END  IF 


t' 


GO  TOP 

DELETE  NEXT  500 
PACK 


< 


SELECT  4 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  5 
APPEND  BLANK 

REPLACE  username  WITH  D->username,  task  'LIST  45',, 
progname  WITH  'LIST5',  Iogdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 


5 


CLOSE  DATABASES 
RETURN 


i 


|< 

-< 


*» 
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#****#«***#*******-»"»* 


PROGRAM  LIST6  ■»•»*■»•»•»*■*•»■»•»***•»**■»**** 
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*  This  program  provides  display  or  printer  output  -for  the 

*  officers  serving  outside  the  Artillery  Branch 

CLEAR 

00  window2 


3  5,23  SAY 
a  6,23  SAY 
3  8,23  SAY 
a  9,23  SAY 
a  10,23  SAY 


LIST  OF  OFFICERS  SERVING  OUTSIDE 
THE  BRANCH  IS  GOING  TO  BE  PRINT' 
AUXILIARY  FILE  REQUIRED  ' 

FOR  THE  PROCESSING  IS  BEING  BUILT 
WAIT .  ' 


USE  serves  INDEX  serves  ALIAS  lookup 

SELECT  2 

USE  au:<  file 

SELECT  4 

USE  userid 

SELECT  5 

USE  user log 

SELECT  3 

USE  officer  INDEX  officer 

SET  RELATION  TO  serno  INTO  lookup 

DO  WHILE  .NOT.  EOF O 

IF  lookup- >unitname  =  'OAB  ' 

SELECT  2 
APPEND  BLANK 

REPLACE  rank  WITH  C-; rank , name  WITH  C->name,, 

source  WITH  C->source , speci al ty  WITH  C->speci al ty , , 
marstat  WITH  C- >marstat , serno  WITH  C->serno 
REPLACE  unitid  WITH  1 ookup->uni tname , , 
date  WITH  1 ookup->enrol date 

END  IF 

SELECT  3 
SKIP 
ENDDO 

a  10,47  SAY  'READY' 

SELECT  2 

STORE  '  '  TO  answer 

a  14,23  SAY  '  PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 


Y 


SWITCH  ON  YOUR  PRINTER' 


HIT  ANY  KEY  TO  CONTINUE' 


IF  UPPER (answer)  =  ' 
a  14,23  SAY  ' 
a  12,23  SAY  ' 

SET  PRINT  ON 
a  13,23  SAY  '  I 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
END  IF 

CLEAR 

REPORT  FORM  mklist<£> 

IF  UPPER (answer)  =  'Y' 
SET  PRINT  OFF 
END  IF 

GO  TOP 

DELETE  NEXT  500 
PACK 


SELECT  4 

LOCATE  FOR  password  =  UPPER(psw) 

SELECT  5 
APPEND  BLANK 

REPLACE  username  WITH  D->username,  task  WITH  'LIST  #  6',, 
progname  WITH  'LIST6',  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 

CLOSE  DATABASES 
RETURN 


'vSvvS- 


**•»*■»■»*•»*•»■»■»■»■»*•»**■»*  PROGRAM  REPORT  1  **********#***-******* 

*  This  program  provides  display  or  printer  output  containing 

*  all  service  data  concerning  a  speci-fic  o-f-ficer 

CLEAR 

00  window2 

STORE  '  '  TO  tserno- 

a  5,22  SAY  'SERVICE  TIME  REPORT  FOR  THE  REQUESTED' 
a  6,23  SAY  '  OFFICER  IS  GOINS  TO  BE  PRINT  ' 
a  14,23  SAY  '  ENTER  SERIAL  #  ==>'  GET  tserno 

READ 

a  14,23  SAY  ' 

SELECT  3 
USE  userid 
SELECT  4 
USE  user 1 og 
SELECT  1 

USE  historic  INDEX  historic 
SELECT  2 

USE  o-f-ficer  INDEX  o-f-ficer 
FIND  Jitserno 

IF  .NOT.  EOF ( ) 

STORE  name  TO  tname 
STORE  source  TO  tsource 
STORE  specialty  TO  tspec 
STORE  DATEO  TO  tdate 
SELECT  1 

STORE  '  '  TO  answer 

a  14,23  SAY  '  PRINTER  OUTPUT?  (Y/N)  ==> '  GET  answer 

READ 

IF  UPPER (answer)  =  'Y' 
a  14,23  SAY  ' 

a  12,23  SAY  '  SWITCH  ON  YOUR  PRINTER' 

3  13,23  SAY  '  HIT  ANY  KEY  TO  CONTINUE' 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
SET  PRINT  ON 
END  IF 
CLEAR 
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DATE 


9 


: ' , tdate 


OFFICER'S  SERVICE  TIME  REPORT' 


SERIAL  #  : ' , tserno , ' NAME  :',tname 

SOURCE  : ' , tsource, '  SPECIALTY  : ' , tspec 

DATE  TRANSACTION  RANK  UNIT  ORDER  ID' 


LIST  transdate , transtype , rank , uni t , or der i d , 

FOR  serno  =  tserno 

IF  UPPER (answer )  ■  'Y' 

SET  PRINT  OFF 
SELECT  3 

LOCATE  FOR  password  =  UPPER (psw) 

SELECT  4 
APPEND  BLANK 

REPLACE  username  WITH  C->username, , 
task  WITH  'REPORT  #1',, 

progname  WITH  ' REPORT 1 ' ,  logdate  WITH  DATE ( ) , , 
logtime  WITH  TIMEO 

END  IF 
ELSE 

3  14,23  SAY  'OFFICER  DOES  NOT  EXIST  IN  DATABASE' 

DO  delay 

END  IF 


CLOSE  DATABASES 
RETURN 


*******************  PROGRAM  REP0RT2  ********************** 

*  This  program  provides  display  or  printer  output 

*  concerning  the  status  of  a  specific  officer 


CLEAR 

00  window2 

STORE  '  '  TO  tserno 

3  5,23  SAY  '  STATUS  REPORT  FOR  THE  REQUESTED' 

3  6,23  SAY  '  OFFICER  IS  GOING  TO  BE  PRINT  ' 

3  14,23  SAY  '  ENTER  SERIAL  #  ==>'  GET  tserno 

READ 

3  14,23  SAY  ' 

STORE  DATEO  TO  tdate 

USE  serves  INDEX  serves  ALIAS  lookup 
SELECT  2 

USE  officer  INDEX  officer 

SET  RELATION  TO  serno  INTO  lookup 

FIND  &tserno 


IF  .NOT.  EOF ( ) 

STORE  '  '  TO  answer 

3  14,23  SAY  '  PRINTER  OUTPUT?  (Y/N)  ==>'  GET  answer 

READ 


IF  UPPER (answer  5  =  'Y' 

3  14,23  SAY  ' 

3  12,23  SAY  '  SWITCH  ON  YOUR  PRINTER' 

SET  FRINT  ON 

3  13,23  SAY  '  HIT  ANY  KEY  TO  CONTINUE' 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 
END  IF 


CLEAR 


ABD/HAGS 


DATE 


tdate 


7 

r> 


OFFICER'S  STATUS  REPORT' 


?  '  NAME 

?  '  SERIAL  NUMBER 

?  '  RANK 

?  '  NOMINATION  YEAR 

?  '  SOURCE 

?  '  SPECIALTY 

?  '  MARITAL  STATUS 

?  '  CHILDREN 

?  '  WORKING  WIFE 

?  '  ORIGIN 

?  '  UNIT 

?  '  ENROLMENT  DATE 

■?  '  DUTY 


'  ,  name 
' ,  serna 
'  ,  rank 
' ,  nomyear 
' ,  source 

specialty 
'  ,  marstat 
'  ,  chi  1 dren 
'  ,  warkwi-fe 

or igci ty ,  '  ,  origcounty 

1  ookup->uni tname 
1  ookup->enro!date 
'  ,  lookup- >duty 


IF  UPPER (answer )  =  'Y' 
SET  PRINT  OFF 
END  IF 


SELECT  3 
USE  userid 

LOCATE  FOR  password  =  UPPERCpsw) 

SELECT  4 
USE  user log 
AFPEND  BLANK 

REPLACE  username  WITH  C— >username , , 
task  WITH  'REPORT  #2',, 

progname  WITH  ' REP0RT2 ' , 1 ogdate  WITH  DATEO,, 
logtime  WITH  TIMEO 

ELSE 

a  14,23  SAY  'OFFICER  DOES  NOT  EXIST  IN  DATABASE' 

DO  delay 

END  IF 


CLOSE  DATABASES 
RETURN 


F.  MISCELLANEOUS  PROGRAMS 


*********************  PROGRAM  GRFLAG  ********************* 

*  This  program  displays  on  the  screen  the  Hellenic  Flag 

SET  COLOR  TO  W+ 

CLEAR 

STORE  '  '  TO  blank  1 

STORE  '  '  TO  blank 2 

STORE  '  'TO  blank-3 


STORE  7 

'  TO 

r 

STORE  20 

1  TO 

c 

a 

7,18 

GET 

b 1  an  k 1 

a 

7,24 

GET 

bl ank 1 

a 

8,  18 

GET 

b 1  an  k 1 

a 

8,24 

GET 

blankl 

a 

10,18 

GET 

bl ank 1 

a 

10,24 

GET 

blankl 

a 

11,18 

GET 

blank  1 

a 

11,24 

GET 

blankl 

DO  WHILE  r  <  13 

a  r,c  GET  blank3 
STORE  r+2  TO  r 
ENDDO 

STORE  18  TO  c 

DO  WHILE  r  <  17 

3  r,c  GET  blank2 
STORE  r+2  TO  r 
ENDDO 

SET  COLOR  TO  W 
RETURN 


********************  PROGRAM  DELAY  *********************** 

*  This  program  provides  a  small  delay  necessary  for  displaying 

*  various  program  messages  on  the  screen 
STORE  0  TO  k 

DO  WHILE  k  <  40 

STORE  k  +  1  TO  k 
ENDDO 

RETURN 
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********•***■*•#■•*■*•#•*•*-*  PROGRAM  DBSTITLE 


****** *•■*■*■•*•**■*■■*■*  *■**-**"*- 


*  This  program  displays  on  the  screen  the  title  of  our 

*  database  system 

CLEAR 

a  8,18  SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 
a  9,18  SAY  ':  HAGS/ARTILLERY  BRANCH  DIRECTORATE 

a  10,18  SAY  ':  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

a  11,18  SAY  ' :  :  ' 

a  12, 18  SAY  ' :  :  ' 

a  13,18  SAY  ' :  :  ' 

a  14,18  SAY  ':  MMMMMMMMMMMMMMM 

a  15, 18  SAY  ' :  :  ' 

3  16,18  SAY  ':  HIT  ANY  KEY  TO  CONTINUE 

a  17,18  SAY  'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMC ' 
SET  COLOR  TO  W+ 

a  11,28  SAY  'PERSONNEL  DATABASE  SYSTEM' 
a  12,22  SAY  'FOR  PROCESSING  THE  ANNUAL  ASSIGNMENTS' 
a  13,32  SAY  'OF  THE  OFFICERS' 

SET  COLOR  TO  W 
SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
RETURN 


PROGRAM  MFRAME  *■***•*■»*•****■»**■»**•»***•»■» 


*  This  program  displays  a  frame  on  the  left  half  of  the  screen 


CLEAR 


a 

2,4 

SAY 

a 

3,4 

SAY 

a 

4,4 

SAY 

a 

5,4 

SAY 

a 

6,4 

SAY 

a 

7,4 

SAY 

a 

8,4 

SAY 

a 

9,4 

SAY 

a 

10,4 

SAY 

a 

11,4 

SAY 

a 

12,4 

SAY 

a 

13,4 

SAY 

a 

14,4 

SAY 

a 

15,4 

SAY 

a 

16,4 

SAY 

a 

17,4 

SAY 

a 

18,4 

SAY 

a 

19,4 

SAY 

a 

20,4 

SAY 

a 

21,4 

SAY 

RETURN 

'  I  MMMMMMMMMMMMMMliMMliMMMMMMMMMMMMMMMMM  , 


'  HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 


*******■#*****•**■*■*■#••#•■* 


PROGRAM  FRAME  *****■**•■*■*■*■*•■*•■*•■#•■*■*•**■■*•■*  ■** 


St 


I 


*  This  program  displays  a  small  -Frame  on  the  screen 


a  8,43  SAY  ' I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 
a  9,43  SAY  NEW  RECORD  IN  HISTORIC  FILE  : 
a  10, 43  SAY  ' :  MMMMMMMMMMMMMMMMMMMMMMMMMMM  : 
a  11,43  SAY  ' :  : 
a  12,43  SAY  : 
3  13,43  SAY  ' :  : 
a  14,43  SAY  ' :  : 
a  15,43  SAY  : 
a  16,43  SAY  : 
a  17,43  SAY  'HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMC 
RETURN 


****-»•»•»***•»■»*■»■»*•»**■» 


PROGRAM  WINDOW 


*  displays  a  -frame  on  the  screen  into  which  messages  -for  the 

*  user  are  placed  in-forming  him  about  the  processing 


CLEAR 
a  4,20 
a  5,20 

a  6,20 
a  7,20 
a  8,20 
a  9,20 
a  10,20 
a  11,20 
a  12,20 

3  13,20 
a  14,20 
a  15,20 
RETURN 


' I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 
TEMPORARY  FILES  FOR  THE  : 

' :  ASSIGNMENT  PROCESSING  ARE  BEING  BUILT  : 
's  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  : 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 


****■************■*•*■■#•■#•  PROGRAM  WIND0W1  **•*****•****■**■***•*■#•■*•*•* 
*  This  program  displays  a  window  on  the  screen 


CLEAR 

a  4,18  SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 
a  5,18  SAY  ' :  :  ' 
a  6,18  SAY  ' :  :  ' 
a  7,18  SAY  ' :  :  ' 
3  8,18  SAY  ' :  :  ' 
a  9,18  SAY  ' HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM- :  ' 
RETURN 


***********#**-»**"»**  PROGRAM  WIND0W2 


***■»■»*■»•»•*■»  **•»**■»*■»*■»■» 


*  This  program  displays  a  -frame  on  the  screen  into  which 


* 

messages 

for 

the  user  are  placed 

* 

i nf ormi ng 

him 

about  the  processing 

CLEAR 

a 

4,20 

SAY 

' I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

/ 

a 

5,20 

SAY 

/ 

' 

a 

6,20 

SAY 

/ 

t 

a 

7,20 

SAY 

/ 

MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

i 

a 

8,20 

SAY 

/ 

! 

a 

9,20 

SAY 

/ 

/ 

a 

10,20 

SAY 

/ 

/ 

a 

11,20 

SAY 

/ 

/ 

a 

12,20 

SAY 

/ 

/ 

a 

13,20 

SAY 

/ 

/ 

a 

14,20 

SAY 

/ 

/ 

a 

15,20 

SAY 

' HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM- 

■  / 

RETURN 

PROGRAM  WIND0W3 


*  This  program  displays  on  the  screen  the  codes  used  by  the 

*  database  system 


a 

2,45 

SAY 

a 

3,45 

SAY 

a 

4,45 

SAY 

a 

5,45 

SAY 

a 

6,45 

SAY 

a 

7,45 

SAY 

a 

8,45 

SAY 

a 

9,45 

SAY 

a 

10,45 

SAY 

a 

11,45 

SAY 

a 

12,45 

SAY 

a 

13,45 

SAY 

a 

14,45 

SAY 

a 

15, 45 

SAY 

a 

16, 45 

SAY 

a 

17,45 

SAY 

a 

18,45 

SAY 

a 

19,45 

SAY 

a 

20,45 

SAY 

a 

21 ,45 

SAY 

RETURN 


'  IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ' 
' :  RANK  CODES  :  ' 


' :  0 1 =2nd  Lieuten.  02= 1st  Lieuten.:' 
'  : 03=Captai n  04=Major 

':04=Ltn.  Colonel  06=Colonel 
' :  SOURCE  CODES  :  ' 


MA  =  Military  Academy 
NCOS  =  Non-Commissioned 
Officers'  School 
SPECIALTY  CODES 


C  =  Commanding  T  =  Technitian 
A  =  Administrative 
MARITAL  STATUS  CODES 


S  =  Single  W  =  Widower  : ' 
'  :  M  =  Married  D  =  Divorced  :  ' 
'  HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMC ' 


6.  SAMPLE  LISTS  AND  REPORTS  (DATABASE  SYSTEM  OUTPUT) 


Page  No.  1 

04/28/86 

ABD/HAGS 


LIST  OF  SCHEDULED  ASSIGNMENTS  FOR  THE  REQUESTED  RANK 


SERIAL 

#  RANK 

NAME 

FROM  UNIT 

TO 

UNIT 

DUE  DATE 

22860 

02 

Zimbo  Carl  P 

GMB 

212 

FAB 

08/15/86 

22873 

02 

Zets  Frank  B 

AS 

12 

HAB 

08 / 15/86 

22888 

02 

White  Henry  V 

12  1 

HAB 

213 

MHAB 

08/15/36 

23029 

02 

Topping  Scott  A 

GMB 

122 

FAB 

08/15/86 

23050 

02 

Sugai  Steve  D 

122 

FAB 

GMB 

08 / 1 5 / 36 

231 12 

02 

Plott  Charles  B 

GMB 

21 1 

FAB 

08/15/86 

23141 

02 

Murphy  Tom  S 

23  1 

□B 

112 

FAB 

08/15/86 

23229 

02 

Kondler  Ronald  F 

AS 

GMB 

08/15/86 

23285 

02 

□tondo  Je-f-f  M 

GMB 

23 

OB 

08/15/86 

23326 

02 

Weber  Alex  T 

211 

FAB 

AS 

08/15/36 

23359 

02 

Yeates  Jim  N 

213 

MHAB 

AS 

08/15/86 

23392 

02 

Timar  Gordon  C 

112 

FAB 

113 

MHAB 

08/15/86 

23405 

02 

Taylor  Leroy  A 

113 

MHAB 

GMB 

08/15/36 

23595 

02 

Amason  Frank  L 

212 

FAB 

GMB 

08/15/36 

23849 

02 

Powers  Albert  G 

111 

FAB 

OAB 

08/15/86 

23864 

02 

Kilgore  Michael  F 

□AB 

1  1  1 

FAB 

08/15/86 

23890 

02 

Ratt  Bruno  K 

OAB 

OAB 

08/15/86 

24007 

02 

Jeronomo  Mike  W 

121 

FAB 

77 

HAB 

08/15/36 

24023 

02 

Johnson  Mark  J 

22  1 

HAB 

212 

FAB 

08/15/36 

24046 

02 

Davidson  Jack  B 

FAB 

122 

FAB 

08/15/86 

24061 

02 

Fal 1 i s  John  M 

1 22 

FAB 

121 

FAB 

08/15/86 

24156 

02 

Linhard  Harry  C 

21 1 

FAB 

21 

FA/AB 

08/15/86 

24175 

02 

Voris  John  D 

21  1 

FA/AB 

21 1 

FAB 

08/15/86 

AD-A174  127  IMPLEMENTATION  OF  A  PERSONNEL  OAT ABASE  SVSTEM  '  2/3 
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UNCLASSIFIED 


F/G  5/9 


ML 


I 


V 
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Page  No. 
04/28/86 


1 


ABD/HAGS 


LIST 

OF  OFFICERS  SERVING  IN  THE 

REQUESTED  UNIT 

RANK 

SERIAL# 

NAME 

UNIT 

DUTY 

ENROL. DATE 

07 

20060 

Morris  Robert  G 

ARTC 

•  CDR 

05/05/35 

06 

20178 

Adams  Edward  B 

ARTC 

DEPUTY  CDR 

05/22/85 

05 

20273 

Anzini  Daniel  D 

ARTC 

FAASS 

07/26/84 

05 

20300 

Lipori  Gerald  A 

ARTC 

TAB/CDR 

07/18/84 

05 

20391 

McRae  James  R 

ARTC 

TAB/CDR 

07/12/84 

05 

20531 

Nicely  Marvin  L 

ARTC 

TAB/CDR 

07/20/85 

04 

20785 

Russo  James  D 

ARTC 

G2 

08/18/85 

04 

20927 

Qualls  Terry  D 

ARTC 

G3 

07/29/84 

04 

20948 

Miller  Jacj  T 

ARTC 

G1 

07/28/85 

04 

21138 

Krupski  Joseph  K 

ARTC 

HSB/CDR 

07/20/83 

04 

21249 

Rogers  Alex  B 

ARTC 

TCAO 

08/25/85 

03 

21289 

Mai  Ion  Patrick  F 

ARTC 

B/CDR 

08/27/84 

03 

21423 

Trend  Ted  M 

ARTC 

B/CDR 

08/30/84 

03 

21492 

Aston  John  S 

ARTC 

B/CDR 

08/29/84 

03 

21562 

Salvo  John  H 

ARTC 

B/CDR 

08/31/84 

03 

21628 

Ryan  Peter  G 

ARTC 

B/CDR 

08/26/82 

03 

21689 

Papas  Chris  J 

ARTC 

B/CDR 

08/27/84 

03 

21733 

Strouzas  John  G 

ARTC 

B/CDR 

08/30/84 

03 

21903 

Solomos  James  D 

ARTC 

B/CDR 

08/29/84 

03 

21956 

Sercia  John  M 

ARTC 

B/CDR 

08/31/85 

01 

24402 

Lucas  Mike  T 

ARTC 

P/CDR 

08/01/35 

01 

24405 

Williby  Richard  F 

ARTC 

P/CDR 

08/01/85 

01 

24423 

Grace  Bob  K 

ARTC 

P/CDR 

08/01/85 

01 

24426 

Stetson  Jeff  C 

ARTC 

P/CDR 

08/01/85 

01 

24436 

Nagal  David  A 

ARTC 

P/CDR 

08/01/85 

01 

24444 

Dunlop  Tom  S 

ARTC 

P/CDR 

08/01/85 

01 

24458 

Kohn  Daniel  P 

ARTC 

P/CDR 

08/01/85 

01 

24459 

Eakin  William  F 

ARTC 

P/CDR 

08/01/85 

01 

24472 

Clanin  John  V 

ARTC 

P/CDR 

08/01/85 

01 

24473 

Henderson  Lester  N 

ARTC 

P/CDR 

08/01/85 

01 

24491 

Lubin  Patrick  H 

ARTC 

P/CDR 

08/01/85 

01 

24495 

Naef  George  J 

ARTC 

P/CDR 

08/01/85 

01 

24786 

Monsen  Harry  K 

ARTC 

MO 

08/25/84 

01 

24832 

Mix ter  Jason  K 

ARTC 

MO 

08/30/85 

01 

24847 

Townsend  Jeff  P 

ARTC 

MO 

08/28/85 

01 

24851 

Lucky  Thomas  S 

ARTC 

PAO 

08/29/83 

01 

24929 

Knubis  James  P 

ARTC 

PAO 

08/29/84 

01 

25016 

Cline  William  R 

ARTC 

PAO 

08/30/85 

Page  No. 
04/28/86 


1 


ABD/HAGS 


LIST  OF  ARTILLERY 

OFFICERS  IN  THE 

REQUESTED 

ORDER 

RANK 

NAME 

SOURCE 

SPECIALTY 

UNIT-NAME 

MARITAL 

02 

Abigil  Frank  P 

MA 

C 

GMB 

s 

01 

Abston  Mi ke  R 

MA 

C 

212  FAB 

S 

01 

Acevedo  William  0 

MA 

C 

113  MHAB 

s 

06 

Adams  Edward  B 

MA 

c 

ARTC 

M 

03 

Adcok  Jery  T 

MA 

c 

21  FA/AB 

M 

04 

Alders  Edward  R 

MA 

c 

OAB 

M 

02 

Allen  Douglas  W 

NCOS 

A 

223  MHAB 

M 

03 

Allen  Kirk  R 

MA 

C 

221  FAB 

S 

01 

Alonso  Jack  N 

NCOS 

T 

23  OB 

M 

02 

Amason  Frank  L 

MA 

C 

212  FAB 

M 

03 

Amman  George  D 

MA 

C 

AS 

M 

01 

Anasini  George  S 

MA 

c 

112  FAB 

S 

02 

Anderson  Moore  J 

MA 

c 

221  FAB 

S 

02 

Aney  John  T 

MA 

c 

13  OB 

M 

03 

Annelo  Philip  R 

MA 

c 

122  FAB 

M 

07 

Anton  John  T 

MA 

c 

OAB 

M 

06 

An way  James  R 

MA 

c 

OAB 

M 

05 

Anzini  Daniel  D 

MA 

c 

ARTC 

M 

04 

Appel  John  G 

MA 

c 

WC 

M 

03 

Arima  James  J 

MA 

c 

GMB 

M 

05 

Ariss  Bruce  F 

MA 

c 

AS 

S 

04 

Armout  Paul  G 

MA 

c 

22  HAB 

M 

04 

Armstrong  David  K 

MA 

c 

WC 

M 

04 

Arnal  Robert  J 

MA 

c 

OAB 

M 

05 

Arnold  Michael  C 

MA 

c 

212  FAB 

M 

03 

Arundel  Mi ke  A 

NCOS 

T 

113  MHAB 

D 

03 

Aston  John  S 

MA 

c 

ARTC 

M 

03 

Atkins  Robert  H 

MA 

c 

121  FAB 

M 

04 

Auburn  James  P 

MA 

c 

111  FAB 

M 

01 

Austin  Dick  B 

MA 

c 

AS 

S 

05 

Avery  Adam  S 

MA 

c 

221  FAB 

M 

01 

Axelrod  Jack  Z 

NCOS 

c 

111  FAB 

S 

03 

Babbit  Almon  P 

MA 

c 

211  FAB 

M 

03 

Baer  Dan  F 

NCOS 

c 

OAB 

M 

05 

Balum  Dug las  N 

MA 

c 

21  FA/AB 

M 

03 

Beam  Alan  K 

MA 

c 

112  FAB 

M 

01 

Beaty  Jackson  L 

MA 

c 

122  FAB 

s 

05 

Bell  Richard  K 

MA 

c 

OAB 

M 

04 

Beni  son  Michael  J 

MA 

c 

OAB 

M 

07 

Billeb  James  W 

MA 

c 

OAB 

M 

04 

Biondi  Daniel  M 

MA 

c 

223  MHAB 

M 
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05 

Knight  Allen  S 

MA 

C 

M 

OAB 

05 

Klose  Edwin  A 

MA 

C 

M 

QAB 

05 

Nakata  Isaac  E 

MA 

c 

M 

GMB 

05 

Franklin  Adams  P 

MA 

c 

M 

ABD/HAGS 

05 

Cabral  David  T 

MA 

c 

M 

OAB 

05 

Bell  Richard  K 

MA 

c 

M 

OAB 

05 

Anzini  Daniel  D 

MA 

c 

M 

ARTC 

05 

Ariss  Bruce  F 

MA 

c 

S 

AS 

05 

Gray  Joseph  W 

MA 

c 

M 

OAB 

05 

Jarecki  Edward  L 

MA 

c 

M 

ABD/HAGS 

05 

Harvey  Steeve  B 

MA 

c 

N 

OAB 

05 

Carl  Michael  S 

MA 

c 

N 

22  HAB 

05 

Lipori  Gerald  A 

MA 

c 

D 

ARTC 

05 

Naylor  Stephen  G 

MA 

c 

M 

121  FAB 

05 

Wurtz  Thomas  D 

MA 

c 

M 

OAB 

05 

Yadon  Robert  J 

MA 

c 

M 

ABD/HAGS 

05 

Zeller  Donald  L 

MA 

c 

M 

OAB 

05 

Yee  Kalvin  B 

MA 

c 

S 

OAB 

05 

Platt  Jeff  C 

MA 

c 

M 

222  FAB 

05 

Tranel  James  A 

MA 

c 

M 

AS 

05 

Trotter  Richard  E 

MA 

c 

M 

122  FAB 

05 

Valentino  John  P 

MA 

c 

S 

OAB 

05 

Urie  Larry  H 

MA 

c 

M 

AS 

05 

Thoreson  Alex  G 

MA 

c 

M 

OAB 

05 

Smith  Steven  G 

MA 

c 

M 

113  MHAB 

05 

Johnes  Robert  P 

MA 

c 

M 

111  FAB 

05 

Poleti  Felix  A 

MA 

c 

M 

12  HAB 

05 

Nash  Thomas  S 

MA 

c 

W 

OAB 

05 

McRae  James  R 

MA 

c 

M 

ARTC 

05 

Goral  George  B 

MA 

c 

M 

211  FAB 

05 

Drew  Alan  M 

MA 

c 

S 

OAB 

05 

Cosio  Frank  L 

MA 

c 

M 

213  MHAB 

05 

Avery  Adam  S 

MA 

c 

M 

221  FAB 

05 

Balum  Dug las  N 

MA 

c 

M 

21  FA/AB 

05 

Jeffrey  Harold  D 

MA 

c 

M 

OAB 

05 

Nicasio  Michael  F 

MA 

c 

M 

OAB 

05 

Wagner  Chris  F 

MA 

c 

D 

ABD/HAGS 

05 

Lippman  Bill  J 

MA 

c 

M 

OAB 

05 

Jagoe  Donald  H 

MA 

c 

S 

223  MHAB 

05 

Grace  Bruce  P 

MA 

c 

M 

11  FA/AB 

05 

Draper  George  R 

MA 

c 

M 

OAB 

Page  No.  1 
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SERIAL  # 

RANK 
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UNIT 

ENROL.  DATE 

20255 

05 

Nakata  Isaac  E 

GMB 

07/19/84 

20294 

05 

Carl  Michael  S 

22  HAB 

07/16/85 

20305 

05 

Naylor  Stephen  G 

121  FAB 

07/11/84 

20332 

05 

PI  ott  Je-f-f  C 

222  FAB 

07/24/84 

20343 

05 

Trotter  Richard  E 

122  FAB 

07/13/84 

20365 

05 

Smith  Steven  G 

113  MHAB 

07/22/84 

20376 

05 

Johnes  Robert  P 

111  FAB 

07/21/84 

20379 

05 

Poleti  Felix  A 

12  HAB 

07/23/84 

20392 

05 

Goral  George  B 

211  FAB 

07/22/84 

20403 

05 

Cosio  Frank  L 

213  MHAB 

07/18/84 

20408 

05 

Avery  Adam  S 

221  FAB 

07/17/84 

20412 

05 

Balum  Duglas  N 

21  FA/AB 

07/23/84 

20449 

05 

Jagoe  Donald  H 

223  MHAB 

07/18/85 

20455 

05 

Grace  Bruce  P 

11  FA/AB 

07/ 1 1 /85 

20476 

05 

Johnson  Mark  L 

123  MHAB 

07/18/85 

20495 

05 

Arnold  Michael  C 

212  FAB 

07/21/85 

20500 

05 

Knapp  Thomas  L 

112  FAB 

07/19/85 
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RANK 


SERIAL  * 


20017 

20019 

20020 
20031 
20067 
20081 
20088 
20097 
20109 
20121 
20151 
20173 

20195 

20196 
20208 
20217 
20226 
20240 
20248 

20269 

20270 
20277 
20290 
20313 
20324 
20329 
20351 
20360 
20382 
20399 
20421 
20427 
20442 
20468 
20483 
20511 
20519 
20556 
20570 
20582 
20596 


NAME 


Calaunan  Tend  G 
Billeb  James  W 
Anton  John  T 
Magnel 1 i  Harold  P 
Prevat  Randy  K 
Horton  Alex  B 
Gordan  Michael  A 
Nickel  George  W 
Mapper  Alfred  D 
An way  James  R 
McNett  John  R 
Colvin  Edgar  A 
Wright  Richard  T 
Yancy  Roy  J 
Luk  William  P 
Lacy. David  A 
Plants  Joe  M 
Knight  Allen  S 
Klose  Edwin  A 
Cabral  David  T 
Bell  Richard  K 
Gray  Joseph  W 
Harvey  Steeve  B 
Wurtz  Thomas  D 
Zeller  Donald  L 
Yee  Kalvin  B 
Valentino  John  P 
Thoreson  Alex  G 
Nash  Thomas  S 
Drew  Alan  M 
Jeffrey  Harold  D 
Nicasio  Michael  F 
Lippman  Bill  J 
Draper  George  R 
Cook  William  K 
Kasper  James  K 
Kennedy  John  B 
Lucky  Thomas  N 
Beni  son  Michael  J 
Alders  Edward  R 
Arnal  Robert  J 


UNIT 


ENROL.  DATE 


05/20/35 

05/15/35 

05/18/35 

05/25/85 

05/12/85 

06/01/85 

06/10/85 

06/20/85 

06/18/85 

06/12/85 

06/21/85 

06/15/85 

06/17/84 

06/12/84 

06/17/84 

06/18/84 

06/19/84 

07/12/84 

07/15/85 

07/27/84 

07/13/84 

07/18/85 

07/10/84 

07/12/85 

07/10/85 

07/20/85 

07/19/85 

07/09/85 

07/16/84 

07/13/84 

07/17/85 

07/20/84 

07/08/85 

07/10/85 

07/06/85 

07/10/85 

07/05/85 

08/20/84 

08/23/84 

08/18/84 

08/21/84 
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RANK 

SERIAL  # 
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UNIT 

ENROL.  DATE 

04 

20607 

Durbin  James  C 

0AB 

08/16/84 

04 

20619 

Kaseman  Timothy  A 

QAB 

08/12/84 

04 

20641 

Holste  Robert  W 

GAB 

08/24/85 

04 

20655 

Nagano  Patrick  K 

GAB 

08/28/84 

04 

20666 

Combie  Edward  P 

OAB 

08/29/85 

04 

20670 

Saleh  William  R 

GAB 

08/22/84 

04 

20685 

Wyler  Bill  A 

OAB 

04/26/85 

04 

20697 

Trapl  Mark  W 

OAB 

08/26/85 

04 

20715 

Scilk  Alan  B 

OAB 

08/27/85 

04 

20722 

Scott  Kalvin  D 

OAB 

08/26/85 

04 

20723 

Hoss  Jack  C 

QAB 

08/28/84 

04 

20728 

Goodrich  John  A 

QAB 

08/27/84 

04 

20734 

Tally  Chris  S 

OAB 

08/27/84 

04 

20736 

Concon  Stephen  J 

OAB 

08/17/85 

04 

20749 

Emerson  Burt  F 

OAB 

08/24/84 

04 

20756 

Je-fferson  Jack  L 

OAB 

08/25/84 
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DATE:  04/28/86 


OFFICER'S  SERVICE  TIME  REPORT 


SERIAL  #  :  20204  NAME  :  Wechsler  Thomas  J 
SOURCE  :  MA  SPECIALTY  :  C 


DATE 

TRANSACTION 

RANK 

UNIT 

ORDER  ID 

07/25/64 

NOMINATION 

01 

MA 

F. 440/ 11 /HAGS 

08/02/64 

ASSIGNMENT. 

01 

AS 

F. 400/23/ ABD/HAGS 

08/01/65 

ASSIGNMENT 

01 

ARTC 

F. 400/46/ ABD/HAGS 

08/12/66 

ASSIGNMENT 

01 

111  FAB 

F. 400/32/ ABD/HAGS 

07/26/67 

PROMOTION 

02 

111  FAB 

F. 440/41 /ABD/HAGS 

08/22/70 

ASSIGNMENT 

02 

223  MHAB 

F. 400/54 /ABD/HAGS 

07/28/72 

PROMOTION 

03 

223  MHAB 

F. 440/ 33 /HAGS 

08/25/74 

ASSIGNMENT 

03 

12  MHAB 

F. 400/ 44 /ABD/HAGS 

08/01/77 

PROMOTION 

04 

12  HAB 

F. 440/22/HAGS 

08/28/77 

ASSIGNMENT 

04 

13  OB 

F. 400/41 /ABD/HAGS 

08/01/79 

ASSIGNMENT 

04 

WC 

F. 333/20/ ABD/HAGS 

07/25/80 

ASSIGNMENT 

04 

AC/11  ID 

F. 400/21 /ABD/HAGS 

05/18/81 

PROMOTION 

05 

AC/11  ID 

F. 440/46/HAGS 

07/23/82 

ASSIGNMENT 

05 

21  FA/AB 

F. 400/ 24 /ABD/HAGS 

06/22/85 

ASSIGNMENT 

05 

ABD/HAGS 

F. 400/ 13/ ABD/HAGS 

04/20/86 

PROMOTION 

06 

ABD/HAGS 

F . 400 / 1 8 / ABD / HAGS 
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DATE:  04/28/36 


OFFICER'S  STATUS  REPORT 


NAME 

SERIAL  NUMBER 
RANK 

NOMINATION  YEAR 

SOURCE 

SPECIALTY 

MARITAL  STATUS 

CHILDREN 

WORKING  WIFE 

ORIGIN 

UNIT 

ENROLMENT  DATE 
DUTY 


Trotter  Richard  E 
20343 
05 
66 
MA 
C 
M 
2 

•  F. 

cityl9  ,  countylO 

122  FAB 

07/13/84 

CDR 
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LIST  OF  REFERENCES 

1.  David  Kroenke,  Database  Systems ,  2d  ed. ,  SRS  Inc.,  1983. 

2.  Richard  Fairley,  Software  Engineering  Concepts ,  McGraw- 
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INITIAL  DISTRIBUTION  LIST 


No.  Copies 

1.  De-fense  Technical  In-formation  Center  2 

Cameron  Station 

Alexandria,  Virginia  22304-6145 

2.  Library,  Code  0142  2 

Naval  Postgraduate  School 

Monterey  ,  California  93943-5000 

3.  Computer  Technology  Curicular  Office  1 

Code  37 

Naval  Postgraduate  School 
Monterey  ,  California  93943-5100 

4.  CDR  L.  Rawlinson,  Code  52Rv  1 

Department  of  Computer  Science 

Naval  Postgraduate  School 
Monterey,  California  93943—5100 

5.  CDR  G.  S.  Baker,  Code  52B  2 

Department  of  Computer  Science 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

6.  Hellenic  Army  General  Staff /G3  2 

Stratopedo  Papagou 

Holargos  Athens  Greece 

7.  Helenic  Army  General  Staff  2 

Artillery  Branch  Directorate 

Stratopedo  Papagou 
Holargos  Athens  Greece 

8.  Defense  and  Army  Attache  1 

Embassy  of  Greece 

2228  Mass.  Avenue,  N.W. 

Washington  DC,  20008 

9.  MJ  Strouzas  Ioannis  6 

Hellenic  Army  General  Staff 

Stratopedo  Papagou 
Holargos  Athens  Greece 

10.  LTC  Tsagaris  Panagiotis  1 

Hellenic  Army  General  Staff 

Stratopedo  Papagou 
Holargos  Athens  Greece 
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1 


11.  CDR  Solomos  Demosthenes 
Naval  Postgraduate  School 
SMC  2157 

12.  CP  Karatasios  Lambros  1 

Naval  Postgraduate  School 

SMC  1831 

13.  LT  Anastasatos  Costas  1 

Hellenic  Navy  Seneral  Sta-f-f 

Stratopedo  Papagou 
Holargos  Athens  Greece 

14.  CP  Vassiliou  Antonios  1 

Naval  Postgraduate  School 

SMC  1817 


